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IDENTIFICATION 
PRODUCT CODE: AC=F 238D-mMC 
PRODUCT NAME: CVKDADO PDT11/150 SYS EXER 
PRODUCT DATE: JULY 1980 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1978, 1979, 1980 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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1.0 GENERAL PROGRAM INFORMATION. 


PROGRAM BUG FIXES FROM REV CVKDAC TO CVKDAD: 


A. REPLACE NON-EXISTANT ERROR 140 TO 1530. 
B. DO NOT EXAMINE KBD WHILE IN SYNC MODEM TEST. 
C. DO ONLY WORST CASE PATTERNS ON COMPATABILITY TESTS 


OTHERWISE DO RANDOM/WCP PATTERNS ON ALTERNATE PASSES. 


PROGRAM ENHANCEMENTS FROP REV CVKDAC TO CVKDAD: 
A. 


ovozsarxn CK TOMN MOO W 
“eee 8 ¢ @ ee *-e 


NEW DISKETTE DATA PATTERNS. 

THE 1°ST WORD OF EACH SECTOR IS ITS TRACK/SECTOR NUMBER. 

THE REMAINING WORDS ARE FROM A PATCH-ABLE TABLE CONTAINING WORST CASE PATTERN 
...OR RANDOM DATA PATTERNS. 

THE PATTERN ALTERNATES Ape WORST CASE PATT ON ODD PASSES 

& RANDOM PATTERNS ON EVEN PASSES 

THE DEFAULT BAUD RATES ARE PRINTED ON THE 1'ST PASS STARTUP 

FOR THE CLUSTERS, PRINTER, SYNC & ASYNC COMM PORTS. 

EXPANDED DISKETTE ERROR MESSAGES. 


): 
IF DXO DROPPED, CHECK & TEST DX1 INSTEAD OF JUMPING P +i DX1 PORTION. 
CLEAR DEVCT AFTER INCREMENTING ‘PASS’ IN ‘EOP’ FOR 
SET MAX SEEKS TO 500 ONLY IF NOT DOING COMPAT TESTS. 


. ADD CONTROL-U FUNCTIONALITY TO INPUTTING A NEW DEVICE MAP. 


INCREMENT DEVCT MORE FREQUENTLY FOR APT. 

CHANGE SECTOR INTERLEAVING FROM EVERY OTHER SECTOR 

TO EVERY 3°RD SECTOR TO CATCH INTERLEAVING. 

CLEAR ERROR COUNTERS ON RESTARTS OF COMPATABILITY TESTS 1 8 2. 

ADDED FILL & EMPTY BUFFER TESTS TO DEVICE MAP. 

IMPROVED ABILITY TO DISTINGUISH SEEK ERRORS FROM READ HEADFR FAULTS. 
TYPE PASS NUMBER WITH EACH ERROR REPORT. 

ADDED ABILITY TO RUN WITHOUT CONSOLE. 

ADDED ABILITY FOR OPERATOR TO EASILY MODIFY BAUD RATES. 

ADDED ABILITY TO INPUT UNIT SERIAL NUMBER & OUTPUT IT ON EACH ERROR REPORT 
& EACH END OF PASS. 
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PROGRAM PURPOSE (ABSTRACT). 


THE PDT=11/150 SYSTEM EXERCISER TESTS THE PROCESSORS ABILITY 
TO OPERATE ALL iTS PERIPHERALS IN INTERRUPT MODE AT THE SAME TIME 
WITH EMPHASIS ON THE DISK SUBSYSTEMS. 


IT SHOULD BE NOTED THAT IT IS NOT A DIAGNOSTIC OF THE PERIPHERALS 
BUT A SERIES OF SYSTEM INTERACTION TESTS. 


THE PROGRAM IS DEFAULTED TO EXERCISE THE CLUSTER TERMINALS & THE 
COMM PORT IN INTERNAL LOCOBACK (MAINT) MODE 

THE DEFAULT CAN BE CHANGED TO EXERCISE ANY OF THE CLUSTER TERMINALS 
AND/OR THE COMM PORT IN EXTERNAL LOOPBACK. 

SEE PROGRAM OPTIONS SEC. 2.4. 


TESTING OF THE ACTUAL CLUSTER TERMINALS OR COMM DEVICE IS NOT PERFORMED. 
THESE DEVICES CAN ONLY BE TESTED EITHER IN EXT. OR INT. LOOPBACK. 


THE PRINTER LOGIC WILL BE EXERCISED IF SIZING DETERMINES IT TO BE PRESENT 
OR IF DATA TERM RDY IS ASSERTED ON ITS CONNECTOR. 


THE "EIS=FIS'’ LOGIC WILL BE EXERCISED IF SIZING DETERMINES IT TO BE PRESENT. 
THE CONSOLE TERMINAL IS NOT TESTED. 


AFTER TRE MEMORY AND EIS-FIS (IF PRESENT) HAVE BEEN TESTED & ALL THE PERIPHERALS ARE 
BEING EXERCISED & INTERRUPTING AT RANDOM, THE DISK SUBSYSTEM TESTS WILL BEGIN. 
SEE TEST SUMMARY SEC. 7.0. 


NOTE: IF RUNNING UNDER APT, THE SYNC COMM LOGIC WILL BE TESTED ONLY ON 
THE 1'ST PASS. THIS IS SO APT "BREAKS' SO NOT CAUSE FALSE SYNC COMM ERRORS. 


THE PROGRAM CONTAINS A UTILITY WHICH CAN COPY THE SYSTEM EXERCISER DISK 
FROM DXO ONTO A SCRATCH DISK IN DX}. 

THIS ENABLES THE OPERATOR TO CREATE BACKUP COPIES OF THE EXERCISER DISK. 
SEE SECTION 2.8. 


THE PROGRAM ALSO CONTAINS A COMPATABILITY TESTING OPTION. 
SEE SEC. 2.7. 
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SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 


PDT=11/150 SYSTEM 

8K MEMORY - MINIMUM 

CONSOLE TERMINAL (NOT REQ'D AFTER STARTUP) 

EXTERNAL LOOPBACK CONNECTORS (OPTIONAL) FOR COMM & CLUSTER TERMINAL PORTS. 
(SEE PROGRAM OPTIONS SEC. 2.4) 

VT-100 CONSOLE MUS? BE SETUP FOR JUMP SCROLL. 


SOFTWARE REQUIREMENTS: 


THIS EXERCISER IS DESIGNED TO RUN IN ANY OF THE FOLLOWING WAYS: 


STAND ALONE 

WITH APT MONITOR (INCL. SCRIPT MODE) 
WITH RT-11 MONITOR 

WITH DIAGNOSTIC SUPERVISOR (NON SCRIPT MODE) 


AN XXDP DRIVER IS NOT AVAILABLE FOR THE PDT-11/150 


AT RELEASE TIME OF CVKDAD. 
1. E. XXDP DOES NOT PRESENTLY SUPPORT THE PDT=-11/150. 


RELATED DOCUMENTS AND STANDARDS. 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
APT MD-11-DZZ7MA 
SYSMAC MD-11-DZQAC 


DIAGNOSTIC HIERARCHY PREREQUISITES 
THIS EXERCISER ASSUMES THAT THE POWER UP SELF TEST RUNS ERROR FREE. 


ASSUMPTIONS 


THIS EXERCISER ASSUMES THAT THE OPERATOR HAS MODIFIED THE DEVICE MAP 
(SDEVM) AT LOC. 1246 IF THE DEFAULTS DO NOT AGREE WITH THE ACTUAL 
SYSTEM CONFIGURATION. SEE PROGRAM OPTIONS SEC. 2.4. 

THE PROGRAM ALSO ASSUMES THE SOFTWARE SWITCH REGISTER IS 

PROPERLY SET UP (SWREG) AT LOC. 176. SEE SEC. 2.5. 


RUNNING SYSTEMS PROGRAMS 


UNLESS THE SYSTEMS PROGRAMS ARE KNOWN TO IN 
RATES OF EACH DEVICE THRU THE cy yo REG 
THE OPERATOR SHOULD POWER DOWN & UP AGAIN W pth DR wees THIS EXERCISER. 
THIS IS TO RESTORE THE PDT-11/150 TO ITS DE BAUD RATES. 

OTHERWISE, THE DEVICES WILL ATTEMPT TO RUN AT WHATEVER BAUD RATES 


ALIZE THE BAUD 
ER, 
F 
LT 
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WERE LAST USED BY THIS EXERCISER. 


2.0 OPERATING INSTRUCTIONS. 
g.' LOADING A) STARTING PROCEDURES. 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED PAPER TAPE. 
THE PROGRAM WILL AUTO=START AFTER LOADING. 


THE SYSTEM EXERCISER PROGRAM WILL AUTO-START AFTER BOOTING. 


EXAMPLE OF STARTUP ASSUMING THAT: 


24K WORDS OF MEMORY 

EIS-FIS OPTION NOT PRESENT 
PRINTER NOT PRESENT 

CLUSTER TERM #2 NOT TO BE TESTED 
COMM PORT EXT. LOOPBACK 

CLUSTER TERM 1 & 3 INT. LOOPBACK. 


(STARTUP TYPEOUTS) 
CVKDAD PDT=11/150 SYSTEM EXERCISER 


SWR = 000000 NEW = 110000 <CR> (HALT ON ERR, ENABLE PERFORMANCE REPORTS) 
DEVM = 000017 NEW = 20005 <CR> (CHANGE THE DEFAULTS SEE SEC. 1.5) 
SERIAL NO. = 123 NEW = A123<CR> (UP TO 7 CHARS ALLOWED) 


24K MEMORY PRESENT 

EIS-FIS OPTION NOT PRESENT 
TERM #2 TESTING DROPPED 
PRINTER NOT PRESENT 


PROGRAM DEFAULTS (UNLESS MODIFIED): 
CLUSTERS @ 2400 B a 
PRINTER @ 9600 B 
SYNC & ASYNC COMM PORTS @ 9600 BAUD 


INSERT SCRATCH DISKS, TYPE ‘P* FOR NORMAL TESTING 
*240G* FOR NORMAL RESTARTS 

*250G° TO COPY SYS EXERCISER DISK 

"260G* FOR COMPATABILITY PASS 1: WRITE 

"270G* FOR COMPATABILITY PASS 2: READ 


(PROGRAM HALTS & WAITS FOR ‘P* & CONTINUES....ABOVE NOTE & HALT OMITTED UNDER APT) 
THE PROGRAM WILL BEGIN ACTUAL TESTING AT THIS POINT. (SEE SUMMARY OF TESTS SEC. 7.0) 


DURING THE TESTS, THE PROGRAM WILL PRINT PROGRESS REPORTS (SEE SEC. 4.1) IF 
BIT 12 IS SET IN THE SWREG (SEE SEC 2.3). 

END OF PASS & TOTAL ERROR COUNT IS PRINTED AT THE CONCLUSION OF TESTING. 

THE PROGRAM JUMPS TO THE BEGINNING & THE ABOVE SEQUENCE IS REPEATED UNTIL HALTED. 


a 


em el 


CVKDAD 


CVKDAD.P11 


2.2 


2.5 


H 1 
PoT11-150 EXERCISER MACY11 30A(1052) O1=-DEC-80 09:47 PAGE 8 


14-JUL-80 16:36 


SPECIAL ENVIRONMENTS. 


THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UNDER APT, RT=11 MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 


OPERATIONAL SWITCH SETTINGS 


THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 
SWITCH REGISTER (SWREG AT LOC. 176) FROM THE CONSOLE. THIS CAN BE 
ACCOMPLISHED BY DGING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE CONSOLE TO ENTER 
adhe P sin LOC. 176 AT SELECTED POINTS WITHIN THE 


2) THE MACHINE WILL THEN TYPE:' SWR=XXXXXX NEW=" (CXXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE ‘NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN ODO 
ONE OF THE FOLLOWING AT THE CONSOLE: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A <CR>. (ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED, AND IF MORE THAN 6 
DIGITS ARE TYPED THE LAST 6 WILL BE USED. IF A <CR> 
IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


C) IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A QUESTION MARK (?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED SEQUENCE 
THEN PROCEED FROM STEP 3 ‘ERASING ALL PREVIOUS INPUT). 


4) THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 
SOFTWARE SWITCH REGISTER OPTIONS (SWREG) 


BIT 15 SET = 100000 = HALT ON ERROR 
13 SET = 20000 = INHIBIT ERROR TYPEOUTS 
12 SET = 10000 = ENABLE PERFORMANCE REPORTS 
10 SET = 2000 = BELL ON ERROR 


ee a ee ee ewe eet 
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2.4 PROGRAM OPTIONS. 
A DEVICE MAP (SDEVM) AT LOCATION 1246 (ENTERED PY A CONTROL-G FOLLOWED BY CONTROL-C) 
IS EXAMINED BY THE PROGRAM TO ay Ae THE METHOD OF TESTING 
THE CLUSTER TERMINALS & THE COMM PORT 


THE DEFAULT VALUE = 000017 (INTERNAL LOOPBACK FOR COMM PORT & CLUSTER TERMINALS) 
1T CAN BE CHANGED TO DO THE FOLLOWING: 


SDEVM (LOC 1246) ENTERED BY “G*C 


BIT 15 SET = 100000 = DROP PRINTER TESTS 
14 SET = 000 = DROP CLUSTER TERM #3 TESTS 
13 SET = 20000 = #2 
12 SET = 10000 = #1 
11 SET = 4000 = DROP ASYNC COMM TESTS 
10 SET = 2000 = DROP SYNC COMM TESTS 
9 SET = 1000 = DROP DRIVE 1 TESTS 
8 SET = 400 = DROP DRIVE 0 TESTS 
7? SET = 200 = DROP CLOCK TESTS 
6 SET = 100 = DROP EIS-FIS TESTS 
5 SET = 40 = DROP FILL & EMPTY BUFFER TESTS 
4 SET = 20 = RUN WITHOUT A CONSOLE PRESENT 
BIT 3 SET = 10 = INT. LOOPBACK (MAINT MODE) FOR COMM PORT (DEFAULT) 
2 SET = 4 = INT. LOOPBACK (MAINT MODE) FOR TERM #1 (DEFAULT) 
1 SET = 2 = INT. LOOPBACK (MAINT MODE) FOR #2 (DEFAULT) 
0 SET = 1 = INT. LOOPBACK (MAINT MODE) FOR #3 (DEFAULT) 
BIT 3 CLR = EXT. LOOPBACK FOR COMM PORT. 
BIT 2 CLR = EXT. LOOPBACK FOR TERM #1. 
BIT 1 CLR = EXT. LOOPBACK FOR TERM #2. 
BiT O CLR = EXT. LOOPBACK FOR TERM #3. 
NOTES: 


1. THE CONSOLE IS NOT TESTED. 
2. BITS 15-4 SETTINGS WILL OVERRIDE BIT 3-0 SETTINGS. 


3. THE PRINTER LOGIC WILL BE TESTED IF BIT 15 = 0 & THE DATA TERM READY 
IS ASSERTED ON THE CONNECTOR. (A PHYSICAL PRINTER IS NOT REQ*D) 


4. A VT-50,52 MAY BE USED INSTEAD OF A PRINTER FOR A VISUAL CHECK. 
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EXECUTION TIMES. 


ASSUMING ALL DEVICES & 2 DISK SUBSYSTEMS PRESENT, PERFORMANCE REPORTS NOT ENABLED: 


1*ST PASS: APPROX. 1 MIN. 45 SEC. 
SUBSEQUENT PASSES: APPROX. 10 MIN. 30 SEC. 
POWER FAIL 


THERE IS NO POWER FAIL AUTO=RESTART CAPABILITY IN THE PDT-11. 


COMPATABILTIY TESTING 


PASS 1: ENTERED FROM A ‘260G'. 
WILL WRITE ALL TRACKS & SECTORS ON SELECTED DRIVES 
& HALT AFTER AN OPERATOR PROMPT. TYPING ‘P* WILL BEGIN PASS 2. 


PASS 2: ENTERED BY A ‘P* AFTER THE ABOVE HALT, OR A ‘270G'. 
WILL PERFORM SEQUENTIAL & RANDOM READS ONLY, ON THE SELECTED DRIVES. 


COPY UTILITY 


TO PROVIDE BACKUP DISKS, A UTILITY IS PROVIDED IN THE PROGRAM TO COPY 
THE SYSTEM EXERCISER DISK FROM DXO TO DX1 IN THE FOLLOWING WAY: 


1. BOOT THE EXERCISER NORMALLY FROM DXO. 
- ALLOW THE PROGRAM TO HALT AFTER THE WARNING MESSAGE TO USE SCRATCH DISKS. 
AT THIS POINT, DO A °250G* TO ENTER THE COPY UTILITY 
THE OPERATOR WILL BE PROMPTED TO USE A SCRATCH DISK IN DX1 & TYPE 'P* TO PROCEED. 
. WHEN COMPLETED, THERE WILL BE A VERIFYING MESSAGE. 
THE OPERATOR CAN THEN DO A 'P* TO COPY ANOTHER IN THE SAME MANNER, 
OR A ‘'240G' TO BEGIN NORMAL TESTING. (OPERATOR WILL BE PROMPTED) 
6. THE COPY UTILITY CAN BE ENTERED AT ANY TIME BY DOING A ‘BREAK’ & ‘250G'. 
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RUNNING WITHOUT CONSOLE. 


SETTING BIT 4 ON THE DEVICE MAP (SEC. 2.4) ALLOWS THE OPERATOR 

TO RUN THE EXERCISER WITHOUT A CONSOLE ONCE THE fo op 1S UNDERWAY. 

THE END OF PASS COUNTER WILL INCREMENT NORMALLY WHILE THE 

END OF PASS & PERFORMANCE REPORT MESSAGES WILL BE SURPRESSED WHEN THE pot ms IS NOT PRESENT. 
IF AN ERROR OCCURES, THE 2 USER LIGHTS WILL GO ON & THE PROCESSOR WILL HALT 

THIS CONDITION TELLS THE OPERATOR THAT AN ERROR ey peter RED. 

THE OPERATOR THEN PLUGS A CONSOLE BACK IN & DOES A PROCEED,'P’’. 

THE ERROR MESSAGE WILL PRINT OUT & TESTING RESUMES at WHICH TIME 

THE CONSOLE CAN BE UNPLUGGED AGAIN. 


NOTE: THE CONSOLE MUST NOT BE REMOVED DURING PRINTOUT OF A MESSAGE. 
DOING SO WILL CAUSE THE UNIT TO HANG UNTIL THE CONSOLE IS RE-CONNECTED. 


CHANGING THE DEFAULT BAUD RATES. 


THE FOLLOWING LOCATIONS HOLD THE DEFAULT BAUD RATES USED BY THE PROGRAM: 


DEVICE LOCATION DEFAULT 

PRINTER 3520 9600 BAUD 
SYNC MODEM 3522 9600 BAUD 
ASYNC MODEM 3524 9600 BAUD 
CLUSTER TERM #1 3526 2400 BAUD 
CLUSTER TERM #2 3530 2400 BAUD 
CLUSTER TERM #3 3532 2400 BAUD 


TO MODIFY THE BAUD RATES, LOAD THE FOLLOWING OCTAL NUMBERS 
INTO THE ABOVE LOCATIONS: 


BAUD RATE NUMBER BAUD RATE NUMBER 
50 1800 4009 
75 0 2000 4400 
110 1000 2400 5000 
134.5 1400 3600 5400 
150 2000 4800 6000 
300 2400 7200 6400 
3000 9600 000 
1200 3400 19200 7400 
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ERROR INFORMATION. 


TYPICAL ERROR PRINTOUTS ARE SHOWN BELOW: 


PASS # 2 

SERIAL_NO. = A123 

TERM ¥- DATA oe ERR 

ERROR ERR RECVD 


600011" 006516 500200 000100 

PASS # 

SERIAL NO. = A123 

DX1 ERR - DATA COMP 

DXTST # ERR PC RXCS RXES RXSA EXPECT RECVD # RETRIES 
000003 010636 100337 000230 003405 100520 100120 4 
PASS # 8 

SERIAL NO. = A123 

DXO HARD ERR - AFTER WRITE CMD 

ERROR # DXTST # ERR PC RXCS RXES TRACK SECTOR M#RETRIES 
000016 000001 011246 100337 000230 59 18 10 


WHERE ALL VALUES TYPED ARE OCTAL EXCEPT : 
WRETRIES, TRACK, & SECTOR WHICH ARE IN DECIMAL. 


BITS 15, 13, &8 10 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


BIT 15 SET: CAUSES THE PROGRAM TC HALT IN THE ERROR ROUTINE. 
IF THE PROGRAM IS CONTINUED, IT WILL PROCEED 
FROM WHERE IT HALTED. 


BIT 13 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 SET: CAUSES THE BELL TO RING ON ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G <*G> FUNCTION. 
REFER TO SECTION 2.5 FOR DETAILS. 


NOTE: SINCE THERE ARE NO SPECIFIC TEST NUMBERS, APT WILL REPORT ALL ERRORS AS TEST 0 ERRORS. 


ERROR HALTS. 


N THE ERROR ROUTINE, 


THE ONLY HALT IN THE EXERCISER I AND 
15 THE SWITCH REGISTER (SWREG) IS SET WHEN AN ERROR OCCURS. 


] IS 
IS EXECUTED ONLY IF BIT OF 
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PROGRESS & PERFORMANCE REPORTS 


THE FOLLOWING REPORTS ARE ENABLED WITH BIT 12 SET IN THE SWITCH REGISTER (SWREG LOC 176) 
& WILL APPEAR FOLLOWING LOADING & STARTING AS DESCRIBED 
IN SECTION 2.1 (ASSUMING ALL DEVICES ARE TO BE TESTED, NO ERRORS & CCNSOLE CONNECTED): 


MEM TESTS DONE 
EIS-FIS TESTS DONE 
CLOCK RUNNING 


PRINTER RUNNING 
SYNC COMM DONE 
ASYNC COMM RUNNING 
TERM #1 RUNNING 


TERM #2 RUNNING 
TERM #3 RUNNING 


DXO TRK 0 DONE 
DX1 TRK 0 

DXO TRK oom 
DXO DATA PATT DONE 
DX1 DATA PATT DONE 
DXO RANDOM SEEKS DONE 
DX1 RANDOM SEEKS DONE 
END OF PASS #1 


SERIAL NO. = A125 


(ALL MEMORY FROM LOCATION 0 TO THE BEGINNING OF THE 
RT=11/XXDP MONITOR (WHEN AVAIL) HAS BEEN TESTED.) 


(1000. NUMBER OF PASSES OF THE EIS-FIS INSTRUCTION 
EXERCISER HAS BEEN EXECUTED.) 


(100 INTERRUPTS HAVE BEEN DETECTED BEFORE EXERCISING THE NEXT DEVICE. 
THE CLOCK CONTINUES RUNNING IN INTERRUPT MODE.) 


(5 LIMES HAVE BEEN PRINTED WITH ERROR BIT CHECKING ONLY. 
THE PRINTER RUNS CONTINUOUSLY IN INTERRUPT MODE AT 9600 BAUD. 
ITS ACTUAL PERFORMANCE IS A VISUAL CHECK IF PRINTER CONNECTED. 
NO OTHER CHECKING PERFORMED IF EXTERNAL LOOPBACK USED. 


(CHARACTERS 0 THRU 377 HAVE BEEN TRANSMITTED & RECEIVED WITH ODD PARITY ENABLED. 
INTERRUPTS ARE THEN DISABLED & THE SYNC COMM IS NO LONGER EXERCISED. 

THIS IS SO THAT THE ASYNC COMM CAN BE EXERCISED 

FOR THE DURATION OF THE PASS.) 


(CHARS 0 THRU 377 HAVE BEEN TRANSMITTED & RECEIVED BEFORE 
EXERCISING THE NEXT DEV 

IT CONTINUES RUNNING IN INTERRUPT MODE AT 9600 BAUD 

WITH ODD PARITY ENABLED & REPEATS THE 0 THRU 377 CYCLE) 


(CHARACTERS 0 THRU 377 HAVE BEEN TRANSMITTED 

& RECEIVED BEFORE EXERXCISING THE NEXT DEVICE. 

THE TERMINAL KEEPS RUNNING CONTINUOUSLY AT 2400 BAUD 
IN INTERRUPT MODE & REPEATS THE 0 THRU 377 CYCLE) 


(SAME AS #1) 
(SAME AS #1) 


(DRIVE 0, TRACK 0 IS WRITTEN WITH 
(DRIVE 1, TRACK 0 IS WRITTEN WITH 
(ETC) 

(ETC UNTIL...) 

oak Tacs wave BEEN WRITTEN WITH A DATA PATTERN IN INTERRUPT MODE.) 
(FOR 1°ST PASS TRACKS 0-4, 40-44; 72-76(10) DONE ONLY.) 


(500 RANDOM SEEKS WITH READ & DATA COMPARE HAVE BEEN PERFORMED ON DRIVE 0 ) 
(SAME AS DX0....10 RANDOM SEEKS ONLY FOR 1°ST PASS QUICK VERIFY) 


TOTAL ERRORS: 0 
TOTAL SOFT ERRORS: 0 


TOTAL ERRORS THIS PASS: 0 
SOFT ERRORS THIS PASS: 0 


A DATA PATTERN, READ & DATA COMPARE PERFORMED) 
A DATA PATTERN, READ & DATA COMPARE PERFORMED) 


(...& ENTIRE PROCESS REPEATS) 
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5.0 DEVICE REGISTERS. 


PARAMETER REGISTER: 
ee wee: ee oe Se 9 8 7 6 5 “ 3 2 1 0 


PTTTTIITI LITTLE TTT T iti iti tii i titi titi titi iii iii i rir ress 
: . PORT BAUD ' USR! USR!IPAR !PAR ! CHAR 'MAIN! ! 177420 (WR ONLY) 
; : SELECT RATE ' LT2! LTV!TYP 'EN ! LENGTH ! : 
RERRERE RAE EERE EERE EAA ERE EERE EEE AE EEE AA RARER REREREREAEE 
! 


LINE CLOCK: VECTOR: 100 
7. = a wl Ue 9 8 7 6 5 4 3 2 1 0 


RRA AAACAAALAAASASAAAAAAAAASEEASASEAAEEL ELE LAL EAR SALA AR RARER RAR REAR AREA REAR ESS SD OS 
O57 Sat &) Bee ae ee Pe eae ee ee ee ee ee 
, ' ' ' ' i ! ! ! ‘IE i ! ! ! ! ' ! 
CRERERERERERERRRERERERREERRERR RR ERE REE EERE EE EE TERETE REA ERER EERE EERE 

! ! ' ! t 


CONSOLE : ADDR: 177560-177566 VECTOR: 60/64 

CLUSTER #1: 176500-176506 300/304 
We: 176510-176516 310/314 
#3: 176520-176526 320/324 


+ = Bw ww CS Gg 8 7 6 5 3 2 1 0 


RES AAAAAARAAAARAAEAAEAAEARERAEAAEREREREEERAEREEAAAAAARAAA EAA RE REKKEKAEAERERAEREEE 


on, Ce eae SEs Se Se ee a ee ee ee ae Bee ee 


Sel Boe ORS eet Be ees eee” LT Ee ce Oe 

MES, FER, SRS HAAS TES: FER AE TI. 1). I OR ED A TEE TS 
an Oe On ee SS ee oe KB DATA BUFFER | 
t ! ! ! ! ! ! ! ' 

Rik, SRR ENED, REE SO SRE TAA. LE RAC ly SA TR MN ROPE EO 
at, Re ee ee ee ae eo ee ee ee ee ee 
Vo, Gea ea PGC 7 a ee OB) a eek Be eee 2 ee ee 

ME ER EER ot 6 ER RB SRR BER SRR eh TR. ES, 
ate On ek We Es ee oe ee PRINTER DATA BUFFER | 
wood Sat Se oe Bae a ee (WRITE ONLY) | 


MEER FDIS TRS SE GME, SO BEI, TEE RETOOL cy bi De em gO ON OO, 
‘ { ' ! ! 


a 
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PRINTER: VECTOR: 200 


ee ee BS ee ee SS EE BG se 
RERKAAAAEAAAEAAAAARAKAAEAAAARERAREAAEEERAAAREREAEEAAEEAEEEAAATAEAAEAAEAAAAAARAAEAAAEAREEREE 
does canal Ee ats es ed ee ee ps foe ee ees ee 
Sek ed Se es Be Se we LA ee Se ee Bee Ped Se 
| scentek amine toende aagndabenesdenebdindbliibhaaniarenensatansennabieseribamnnnlatel 
amg We Pe eS ee Le ee PRINTER DATA BUFFER 
Cee Ge SE ee ee aes Sn (WRITE ONLY) 


SE, Fe: MRR Se FI SNES A AGS py ERD tb, Mn LL SO eS 
! ' ' ! ' 


ASYNC MODEM: VECTOR: 


| Sek, en Oe Bee Ta, See et ce es Ge eS ee ES Pe 
RES AAARARAAREEE ARERR RERAEAEAAAAREAAAAARRARAEAAAAEARAAAAEAAAAAEAAAAARARAAAAAAAAKEEAKE 
RCSR! DSI'RING! CTS! CAR! | SEC!DSET! = IRCVRIRCVRIDSET! =! SEC! RTS! DTR! 
DET i REC! RDY! 'DONE!IE '1E ! ‘xmMIT! =! 
Sd esd ce riseeel ees snastataaiicunetacnedar teksaeiakresessenseainniael 
our EMRion ih tpt fc RECEIVER DATA BUFFER ! 
. ‘ERR 'ERR ‘ERR! | $ ft | 1 
EI Ms one aten POO UE SOE EE, EPA RPP ce NN OR TOE Se an 
8 ee Me cs Ge) Gs Ge oe ee ee ee 
We Sek ees Se Be et Bee Se et, Peed Se 
, peamansbasnbbenomubniasanenbeneiiasendbnesssartesavertabednseeeieeonnbeteaielid 
nat GCs ee et es Cee ee Lane TRANSMITTER DATA BUFFER 
224 ee Se Be SS ees a (WRITE ONLY) 
Re Tet PSL ER MP Saleen Sey SIAR Pee re ws be, Be ane ok I 
' i ! ' ! 


SYNC MODEM: ' VECTOR: 


oe: = we we ee 9 8 7 6 5 4 3 2 1 0 
TT TTI LITT iit ci citi iii iitii iii t iti iid 
RCSR. DSC: RING: CTS: CAR'REC ! SEC!DSET!STRP!IRCVR!IRCVRIDSET!SRCH! SEC! RTS! DIR. 
' DETIACT ! REC! RDY!SYNC!DONE'IE !1E !SYNC!XMIT? ' 
s sseuaeckeanidessebeteabaanbabenasbeaksetatantbans tidnesetenssssdieiainelanais 
RBUF ERR OR . 'PAR ! . RECEIVER DATA BUFFER 
‘ERR ! ‘ERR ! 
emia cecebennaten escenesebeeneconseeuleebarsadbennesessenunesseiiabeubegelennes 
PCSR: 'SYNC! ! WORD '!PAR ‘EVEN! SYNC REG 
. 'CHAR! ' LENGTH !IJE !PAR ! 


POPP eer Terr r TT TTT errrrrrrrrrrerrrerrrTrrTrrrTirTirrretrririiTiiiiiiti titi titi tii it 


KCSR!DNA !  ! IMA IMA ff IMASTIXMITIXMIT!DNA ISENDIH/F $0 0 f! 
it  imopeiccx § = ts iRST tRDY HE fIE [OR Beet a6n fers. 

FO Sena OR ER ES RL a eh AS 
oad ME ee ees Gee Se ee oc ee TRANSMITTER DATA BUFFER ! 
Pee Gee fore Bee, Oe a Be (WRITE ONLY) | 


SER POD: SIL, FREE IR. EA, BEE AM RENT hs and Si, Bone 4 OO 
! ! ! ' ' 


177514 


177516 


330/334 


176610 
176612 
176614 


176616 


340/344 


176620 
176622 (RD ONLY) 
176622 (WR ONLY) 
176624 


176626 


SEQ 0014 
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— Ww Ss 9 8 7 6 5 & 


RHTKKKATAKAARAAAAAAKAAAAAARARAAAAKAKAAAARAAAAAREKRAARAAAAAAAAAAEARATAAKAEARAAARAAARAAATARAEAEARAAEE 


RXCS ERR 7 'CTL 'DRV ! ‘UNIT: 


RXES. 


6.0 


. 'DONE'IE ! ‘SEL 


EU TTETITITILITILILITI LITT Ti T iLL LiTiTii tii. 


RXOB. 


-RPRRRRRREAAALLALESERERE REAR AR RARE SER AR ERR RRR RRR RRRARRR RRA RRRRRRRA RRR RRR ARR AAR R DDS SO 


. 'DRV ! DEL « RNF CRC 
' 


DATA BUFFER 


2a Bs Bee Be FoR ees Cee 
! TRACK 0 = 114(8) eo eee 


creceeeeeneceannatenenncennentnnnananenananenentecearereereananacanananannennens 


DEVICE CONNECTOR LAYOUT 


(ARRRARALALALASALALAL SASSER ERAS ERR R RAR RRR RRA R RR RAARARRASSDS: 


® * s 
CLUSTER TERMINAL #3 COMM PORT 
PORT 
é « * 
SHAK HHEEREAAER EAE E AERA e AeA ee eee AACA Tee eA ee eee eee 
® x ’ 
CLUSTER TERMINAL #2 PRINTER PORT 
PORT 
* * * 
CRHKEKREREKAAAREHAAA KAA KAAREReAeeeAAA ee A AeA eee eee 
® * * 
CLUSTER TERMINAL #1 CONSOLE PORT 
PORT 
* a ‘ 


TAR RRRERERAAREEASALESEREE ERE ERR RRR RR RR REAR RRR RRRAAASAS SD OB | 


‘LOST. ae ID ! 
!DAT 


EUTTITITITITILTTT TTT tiie RS PE AR, A I I. ines SOE 


RXSA- 


VECTOR: 264 


177170 


177172 


177172 


177174 


SEQ 0015 


Se me ee ee eee 


a nee ew ee 
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7.9 SUMMARY OF TESTS (SEE PROGRAM LISTING FOR ADDT'L DETAILS ON SPECIFIC TESTS) 


PHASE 1 
MEMORY TESTS A. LOC 0 THRU END OF PROGRAM IS TESTED FOR TIMEOUT. 

B. END OF PROGRAM TO BOTTOM OF tied Mette t _— 

IS TESTED WITH A 125252 & 052525 PATTE 

C. IF 28K PRESENT, MEMORY FROM 28K TO 30K 18 SIMILARLY TESTED. 
PHASE 2 
EIS-FIS TESTS A. EIS INSTRUCTIONS ‘“‘ASH=ASHC-MUL-DIV'’ ARE EXECUTED. 

B. FIS INSTRUCTIONS ‘‘FADD<-FSUB-FMUL-FDIV'' ARE _XECUTED. 


PHASE 3 


ALL AVAILABLE PERIPHERALS ARE EXERCISED CONTINUOUSLY IN INTERRUPT MODE. 
SEE SECTION 2.4 FOR DETAILS OF SETTING UP THE DEVICE MAP (S$DEVM) FOR DEVICE TO BE TESTED. 
SEE SECTION 4.1 FOR DETAILS ON PROGRESS REPORTS. 


START LINE CLOCK INTERRUPTS ARE DETECTED. 

START PRINTER CONTINUOUS LINES ARE PRINTED. 

START SYNC COMM PORT CHARS 27 THRU 377 "1 PASS ONLY 
START ASYNC COMM PORT CHARS 0 THRU 377 TESTED CONTINUOUSLY. 

START CLUSTER TERMINAL #1 CHARS 0 THRU 377 ARE XMITTED, REC'D & TESTED. 
START CLUSTER TERMINAL #2 SAME 

START CLUSTER TERMINAL #3 SAME 


PHASE 4 
WHILE THE ABOVE DEVICES ARE INTERRUPTING RANDOMLY, DISK SUBSYSTEM TESTS BEGIN: 
FILL &@ EMPTY BUFFER TESTS ARE PERFORMED TO VERIFY THAT NO 
CABLE CROSS-TALK PROBLEMS EXIST BEFORE BEGINNING ACTUAL 
DATA TRANSFERS TO THE DISK SURFACE. 
DXO & DX1 DATA PATTERN: WRITE, 7 & DATA COMPARE 
CKS 0-4, 40-44, 72-76 ON THE 1‘ST PASS. 
ALL TRACKS ON SUBSEQUENT PASSES. 
DXO & DX1 RANDOM SEEKS: READ & DATA COMPARE. 
20 SEEKS ON 1°ST 10 TRACKS ON 1'ST PASS. 
500 SEEKS ON ALL TRACKS ON SUBSEQUENT PASSES. 


DXO INITIALIZE, RESTORE, WRITE DELETED DATA, READ STATUS, & INVALID ADDRESS TESTS. 
NOTE: 


1. RECOVERY IS PERFORMED (RESTORE COMMAND) AFTER ANY RNF ERROR ON WRITE OR READ. 
2. DATA IS TESTED AFTER A HARD CRC ERROR ON A READ TO TEST WHETHER DATA ERROR OR CRC ERROR. 


ee ee ee a 


me ee eee ee ee ee ee 


CVKDAD 
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te ed ed ed ed ed ed ed 


PoTii- be EXERCISER 
14-JUL-80 16:36 


001100 


000011 


177776 
177774 
177570 


000000 


000007 
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~TITLE Maes 
;*COPYRIGHT (C) 197 
s*DIGITAL EQUIPMENT CORP. 
g SHA TRANS MASS. 01754 


«PROGRAM BY GARY PAPAZIAN 
;* 


PDT11-150 EXERCISER 


:*THIS PROGRAM WAS ASSEMBLED USING THE Pt a7?. MAINDEC SYSMAC 


; PACKAGE (MAINDEC=11-D0ZQAC-C3), 


JAN 19 


-SBTTL OPERATIONAL SWITCH SETTINGS 


~SBTTL BASIC DEFINITIONS 


a he OF THE STACK POINTER *** 1100 *#* 


;;BASIC DEFINITION OF ERROR CALL 
;;BASIC DEFINITION OF SCOPE CALL 


STACK= 
-EQUIV EMT,ERROR 
“EQUIV I0T,SCOPE 


ade | ipa DEFINITIONS 


T= 
LF= 12 ;;CODE FOR LINE F 
CR= 15 :: CODE FOR CARRIAGE RETUR 
CRLF= 200 
PS= 177776 


DDISP= 177570 


: SWITCH USE 

15 HALT ON ERROR 

13 INHIBIT ERROR TYPEOUTS 

12 ENABLE PERFORMANCE REPORTS 
10 BELL ON ERROR 


;;CODE FOR tek bean TAB 


> syemegnan pean: REGISTER reekes keer 


;*PRIORITY LEVEL DEFINITIONS 


; GENERAL REGISTER 
Ri= 1 tS GENERAL REGISTER 
R2= %2 ; GENERAL REGISTER 
R3= <3 ;;GENERAL REGISTER 
R4= Te ;;GENERAL REGISTER 
R5= 5 ;;GENERAL REGISTER 
R6= 26 + GENERAL REGISTER 
R7= 7 ;GENERAL REGISTER 
SP= 26 >;STACK POINTER 
PC= %7 ;; PROGRAM COUNTER 


N 
;;CODE FOR CARRIAGE RETURN-LINE FEED 
;;PROCESSOR STATUS WORD 


;;STACK LIMIT REGISTER 

;;PROGRAM INTERRUPT REQUEST REGISTER 
;;HARDWARE SWITCH REGISTER 
;;HARDWARE DISPLAY REGISTER 


SEQ 0017 


; 
' 
a mm 





, 
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828 000000 PRO= 0 ;;PRIORITY LEVEL 0 

829 000040 PRi= 40 ;;PRIORITY LEVEL 1 

830 000100 PR2= 100 ;;PRIORITY LEVEL 2 

831 000140 PR3= 140 ;;PRIORITY LEVEL 3 

832 000200 PR4= 200 ;;PRIORITY LEVEL 4 

833 000240 PR5= 240 ;PRIORITY LEVEL 5 

834 000300 PR6= 300 ;;PRIORITY LEVEL 6 

tH 000340 PR7= 340 ;;PRIORITY LEVEL 7 

837 ;*'"SWITCH REGISTER’ SWITCH DEFINITIONS 

838 100000 SW15= 100000 

839 040000 fyi4= 40000 

840 020000 SWi3= 20000 

a4} 010000 SWi2= 10000 

842 004000 SWil= 4000 

843 002000 SW10= 2000 

844 001000 SwO9= 1000 

845 000400 SWO8= 400 

846 000200 SwO7= 200 

847 000100 SWO6= 100 

848 000040 SwWO5= 4 

849 000020 SwO4= 20 

850 000010 SWO3= 10 

851 000004 SWO2= 4 

852 000002 SWOl= 2 

853 000001 SWOO= 1 

854 EQUIV SwWw09,SW9 

855 EQUIV Sw08,SW8 

856 EQUIV SWO7,SW7 

857 EQUIV SW06,SW6 

858 EQUIV SW05,SW5 

859 EQUIV SW04,SW4 

860 EQUIV Sw03,SW3 

861 EQUIV SWO02,SW2 

862 ~EQUIV SwWO1,SW!1 

ner EQUIV SW0O,SWO 

865 :*DATA BIT DEFINITIONS (BITOO TO BIT15) 

866 100000 B1715= 100000 

867 040000 BIT14= 40000 

868 020000 BIT13= 20000 

869 010000 BITI2= 10000 

870 004000 BIT11= 4000 

871 002000 BIT10= 2000 

872 001000 BITO9= 1000 

873 0004 BITO8= 400 

874 000200 BITO7= 200 

875 0001 BIT06= 100 

876 000040 BITOS5= 40 

877 000020 BITO4= 20 

878 000010 BITO3= 10 

879 000004 BITO2= 4 

880 000002 BITO1= 2 

881 000001 BITOO= 1 

882 EQUIV BITO9,BIT9 

883 EQUIV B1IT08,B118 


Se ee ee ee ns mm a ee ee me eo oe te - 


em mn mm mT TT TTT SR mA a Mm me mee ~4 


on ee eee + —_— — oe ee 
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-EQUIV B1T07,BI1T7 

885 -EQUIV BIT06,BIT6 

886 -EQUIV B1T05,B1T5 

887 EQUIV BITO4,BIT4 

888 -EQUIV BITO3,B1T3 

889 EQUIV BITO2,BIT2 

890 EQUIV B1T01,B1T1 

. -EQUIV BITOO,BITO 

893 >*BASIC “'CPU'’ TRAP VECTOR ADDRESSES 

894 000004 ERRVEC= 4 >; TIME OUT AND OTHER ERRORS 

895 000010 FESVEC= 10 ; ;RESERVED AND ILLEGAL INSTRUCTIONS 

896 000014 TEITVEC=14 :3''T' BIT 

897 000014 TRIVEC= 14 :; TRACE TRAP 

898 000014 BPTVEC= 14 : ;BREAKPOINT TRAP (BPT) 

899 000020 IOTVEC= 20 >; INPUT/OUTPUT TRAP (IOT) **SCOPE** 

900 000024 PWRVEC= 24 :;POWER FAIL 

901 000030 EMTVEC= 30 > EMULATOR TRAP (EMT) **ERROR** 

902 000034 TRAPVEC=34 ::"'TRAP’’ TRAP 

903 000060 TKVEC= 60 >: TTY KEYBOARD VECTOR 

904 000064 TPVEC= 64 >; TTY PRINTER VECTOR 

ona 000240 PIRQVEC=240 :;PROGRAM INTERRUPT REQUEST VECTOR 

907 

908 

909 

910 SRR RAAR AA AE AAA AERA R TEER EE ER ATER AAEAREARAR AERA ARER TAKARA RAE EES 

911 sf PDT-11/150 DEVICE VECTORS 

912 SERRA AAA AERA AERE AERA EEE TREE AAA AAAAARERAAAARARARAA AERA ERA E RES 

913 

ue 090200 PRVEC= 200 :PRINTER 

a 000100 CLKVEC= 100 ;LINE CLOCK 

918 000330 AMRVEC= 330 sASYNC MODEM RECVR 

4 000334 AMXVEC= 334 : XMITR 

921 000340 SMRVEC= 340 ;SYNC MODEM RECVR 

ace 000344 SMXVEC= 344 ‘ XMITR 

3 000264 RXVEC= 264 :DISK 

926 000300 TKIVEC= 300 :CLUSTER TERM #1 VECTORS 

927 000304 TPIVEC= 304 

928 000310 TK2VEC= 310 : #2 

929 000314 TP2VEC= 314 

930 000320 TK3VEC= 320 - a3 

931 000324 TP3VEC= 324 


ao oe = 
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177420 
177546 


177514 
177516 


176610 


176616 
176620 


176626 
177170 
177172 
177172 
177174 


176500 


176506 
176510 


176516 


176520 
176522 
176524 
176526 


MACY11 30A( 
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(1052) 
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'MABRBRBRARABARARRBASRARARARRARARARAARRRRRRRRRARRRRARRRRRRR RASA RAAAD SD SDA OS 


PARAM= 
CLK= 


PRS= 
PRB= 


AMR(= 
AMRB= 


177420 
177546 


77170 
77172 
77172 
77174 


;PARAMETER REGISTER 


PDT=11/150 DEVICE REGISTERS 


MARBRARABRABRARABRARARBRARARARARRAARRARARRRRRRARRRRRRRRRRRRRRRRARARARAS SD SD | 


(WRITE ONLY) 


;LINE CLOCK 


;SYNC MODEM RECVR STATUS REG 
; BUFFER 


;PRINTER STATUS REG 
BUFFER 


(WRITE ONLY) 


;ASYNC MODEM RECVR Adah REG 


U 
XMITR STATUS REG 
BUFFER (WRITE ONLY) 


(READ ONLY) 
(WRITE ONLY) 


(WRITE ONLY) 


U 
PARAMETER REG 
XMITR STATUS REG 

BUFFER 


pees CSR 
DATA BUFF 
ERROR & STATUS REG 
TRK & SECTOR ADDR REG 


;CLUSTER TERMINAL #1 


a 


#3 


AS ET 


SEQ 0020 


ee ee me ee tee 





CVKDAD 
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2233833333833333333 


ee ee eee ee ee ee 
elelelelelejlelejolejejlejojejojajqa) 
OV FW 0 OOO fwn-o 


MIMOMOPORGPOR 
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010000 


040000 


000000 


007400 


000060 
000020 


000000 


000014 


000002 


MACY11 30A( 
BASIC DEFIN 
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SEQ 0021 


MmABRBRRRBARARBRASLRRASARARARRRAREARARARARARARRRARRRARRRARRARARAAS SD OO | 


oe 
*® 

® 

oe 


‘BIT 14-12 PORT SELECT 
CONSOL= 10000 
(Tiz 0 


:BITS 4-5 PARITY CONTROL 


PARAMETER REGISTER EQUATES 


'MARBRARABRABRASRELAERARESARRARARARARRRRARRRRRRRARARRRARARRRRR RADA SS SO 


WRITE ONLY 


s SELECT CONSOLE TERMINAL 
CLUSTER TERMINAL 7 


; 2 
: #3 
; PRINTER PORT 

; ASYNC COMM PORT 

; SYNC COMM PORT 

; USER LIGHTS 

(DELTA = 400) 

;50 BAUD 

:75 

2110 

2134.5 

:150 

; 300 

Ae 

:1200 

; 1800 


;2000 

2400 (CLUSTER DEFAULT) 

; 5600 

:7200 

39600 (PRINTER, SYNC & ASYNC DEFAULT) ~ 
19200 


BAUD SELECTED, 2 STOP BITS ARE ASSUMED. 


;EVEN PARITY ENABLE 
;ODD PARITY ENABLE (DEFAULT) 


;BITS 35-2 CHARACTER LENGTH (DELTA = 4) 


T1 
CT2= 50000 
CT3= 60000 
FQT= 20000 
AMOD= 30000 
SMOD= 0000 
ULITE= 40000 
;B1T 11-8 BAUD RATE 
B50= 0 
B75= 400 
B110= 1000 
B134= £1400 
B150= 2000 
B300= 2400 
B600= 3000 
B1200= 3400 
B1800= 4000 
B2000= 4400 
B2400= 5000 
B3600= 5400 
B4800= 6000 
B7200= 6400 
B9600= 7000 
B19200= 7400 
IF 110 
EPAR= 60 
OPAR= 20 
CHARS= 0 
CHAR6= 4 
CHAR7= 10 
CHARB= 14 
;BIT 1 
MAINT= BIT1 


MAINTENANCE BIT 


:? BITS/CHAR 


:7 
:B (PRINTER, TERMINAL ,MODEM DEFAULT) 


;ENABLE MAINT MODE 
;PRINTER & DISK DO NOT HAVE MAINT MODE 


——_———=- 
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100000 


000002 


100000 


010000 


000200 
090100 
000001 


MACY11 30 
BASIC DEF 
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052) 
TIONS 





'WRABRBRBBAABRABAASAASASLASAAALALAAARAARA RRR RRRARRRRARARA LARA RRR RR RARER D SSD A 


te ASYNC MODEM BIT DEFINITIONS 

5 RRA RAAARAA AREER AAAA AERA AREA AAREARAERERAEARAAEARAAAAARAAAAAEAAES 
RCSR 

DSI= B1T15 :DATA SET INTERRUPT 

RING= BIT14 *RIN 

CTS=  —- BIT13 “CLEAR TO SEND 

CDET= BIT12 “CARRIER DETECTED 

CQEC= BITI0 “SECONDARY RECD/SUPERVISORY RECD 
DSRDY= BITS “DATA SET RDY 

DONE= BIT? “RECVR DONE 

IE= BIT6 “RECVR IE 

DSIE= BITS “DATA SET IE 

SXMIT= BIT3 “SECONDARY XMIT/SUPERV XMIT 
RTS= —s- BIT2 “REQ TO SEND 

DTR= —s«BIT1 “DATA TERMINAL RDY 

: RBUF 

ERR=  _—BIT15 “ERROR 

ORERR= BIT14 “OVERRUN ERROR 

FRERR= B1T13 “FRAMING ERROR 

PARERR= BIT12 “PARITY ERROR 

:XCSR 

RDY=  ~—««BIT? :XMIT RDY 

IE= BIT6 “XMIT IE 

BREAK= BITO " BREAK 














CVKDAD 
CVKDAD 


Bots 


oOooo°c[eoo°o 
ANN NSS 
OVilrWnoo 


1077 


SESZZZZESE 


ee ee ee ee ee ed aed ed aed ao od 


—) st ed et 2 st 
KARALVLS 
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100000 
0400u0 


000002 


100000 
040000 
010000 


000000 
040000 


000000 


006000 


001400 
001000 


LL 
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2 
BASIC DEFINITIONS 


MmAARRAAAAALASAARAALARLALALELARSAAR RARE RRA SARA AA RRR RR RAR A RRR ADS SD SD OS | 


: SYNC MODEM BIT DEFINITIONS 


MARBARRAAARAARAE RARER LARRARARARARARARRRRRRARS EAA SARA RRA RRR ARRAS AA BOA | 


;RCSR 

DSC= BIT15 ;DATA SET CHANGE 

RING= BIT14 ;RIN 

CTS= B1T13 ;CLEAR TO SEND 

CDET= BIT12 CARRIER DETECTED 

R4CT= BIT11 sRECVR ACTIVE (SYNC DETECT) 
SREC= 81710 ; SECONDARY RECD/SUPERVISORY RECD 
DSRDY= BIT9 ;DATA SET RDY 

STSYN= BIT8 ;STRIP SYNC 

DONE= BIT? ;RECVR DONE 

lE= BIT6 ;RECVR IE 

DSIE= BITS ;DATA SET IE 

SRSYN= BIT4 ; SEARCH SYNC 

SXMIT= BITS ;SECONDARY XMIT/SUPERV XMIT 
RTS= BIT2 ;REQ TO SEN 

DTR= BIT! ;DATA TERMINAL RDY 

; RBUF 

ERR= BIT15 ; ERROR 

ORERR= BIT14 ;OVERRUN ERROR 

PARERR= BIT12 ;PARITY ERROR 


:PARCSR PARAMETER CONT REG 
“BIT 14 SYNC CHAR 


SYNC2= 0 -2 SYNC CHARS (DEFAULT? 
SYNC1= BIT14 :4 

:BITS 10-11 WORD LENGTH 

CHRS= 0 :5 BITS/CHAR 

CHR6= 2000 76 

CHR7= 4000 7 

CHR8= 6000 "8 (DEFAULT) 


:BITS 8-9 PARITY CONTROL 


ENVPAR= 1400 
ODDPAR= 1000 


;ENABLE EVEN PARITY 
;ENABLE ODD PARITY (DEFAULT) 


SEQ 0025 
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1107 
1108 ;XCSR 
1109 ; 
1110 100000 DNA= BIT15 sDATA NOT AVAIL 
1111 010000 = BIT12 sMAINT MODE 
1112 004000 MCLK= BIT11 sMAINT CLOCK 
1113 000400 MR= BIT8 sMASTER RESET 
1114 000200 RDY= BIT7 *XMIT RDY 
1115 000100 IE= BIT6 :XMIT IE 
1116 000040 DNAIE= BITS *DATA NOT AVAIL IE 
1117 000020 SEND= BIT4 : SEN 
Ab 000010 PepUP= BIT3 :1=HALF DUPLEX, O=FULL DUPLEX (DEFAULT = 0 FOR TESTS) 
1120 
1121 
1122 
1123 SERRA AEEEAAAEEEEAEAAAAEAAAERAAAAREEAAAARAAEKERRARAEAARAAA ARES 
1124 :DISK BIT DEFINITIONS 
1125 5 FRA AAAARARAARAERAAAEAA EAE AAAAAAAARAEAAAAAAAEAAAAAAAARAAAARAAARA ES 
1126 
1127 sRXCS 
1128 ; 
1129 100000 ERR= BIT15 s ERROR 
1130 000200 DONE= BIT? -CONTR RDY 
1131 000100 IE= BIT6 ;DRIVE IE 
1132 000020 Dx1= BIT4 sUNIT SELECT: O=DxX0, 1=DxX1 
sar 000020 USEL= BIT4 sUNIT SELECT 
A 4 sFUNCTIONS (INCLUDES BITO = GO) 
1137 000001 FBUF = 1 sFILL BUFFER 
1138 000003 EBUF= 3 sEMPTY BUFFER 
1139 000005 WSEC= 5 sWRITE SECTOR 
1140 000007 RSEC= 7 ;READ SECTOR 
1141 . 000011 INITAL= 11 s INITIALIZE 
1142 000013 RSTAT= 13 ;READ STATUS 
1143 000015 WODSEC= 15 sWRITE DELETED DATA SECTOR 
Her: 000017 RESTOR= 17 *RESTORE TO TRACK 0 
Spy sRXES: ERROR & STATUS 
1148 000200 RDY= BIT? sDRIVE RDY 
1149 000040 DD= BITS ;DELETED DATA DET. 
1150 000020 RNF = BIT4 sRECORD NOT FOUND 
1151 000010 CRC= BIT3 ;CRC ERROR 
1152 000004 LDATA= BIT2 sLOST DATA 
1153 000002 INVADR= BIT1 ; INVALID ADDR 
Nee 000001 ID= BITO s INITIALIZE DONE 
1156 


CVKDAD 
CVKDAD 


1157 
1158 


WN Ow” 


Oe OL 


el ce cc ce ee cD ce cc ee et et od 2 ed od = 2) 2 dd 


SLESRANLSESSLEAFATSSSSISARAN=SSS 


SN=oS 


SSSSsss 


me ee ek ek ed etd oe od tw ts ot SS I So SS os SS oe SS a I SS ss SS SS a ss SV SS st SS 
SSR 
Wa 
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000174 
000176 
000100 
000102 
000200 


000240 


000250 
000260 
000270 


000044 


ed eed eed aed aed od aod 
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000174 
000000 
000000 


000100 
000102 
000002 


000200 
000137 


000240 
000137 


000137 


001000 


003574 


003574 


003556 
003536 
003544 
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TIONS SEQ 0025 


BASIC DEFINI 


FERRARA AAAAAAAAAAEAAEAAAAAEAE AAA AERA AAAAAAAAAAAAAAREAAAAAAAAEAAE AEE 
;* SWITCH REGISTER 
SE RAARERERAAAAREAAEAEEAEAEAAAAAE AA AEAAAAAAAAAAAAAAARARAREAAAAAAAEAATEE 


~=174 
DISPREG: -WORD 0 ; SOFTWARE DISPLAY REG 


SWREG: .WORD 0 “SOFTWARE SWITCH REG 
i02 “SETUP CLOCK VECTOR AREA TO DO RTI 
2 “IF ENABLED 
.=200 
JMP START USE ONLY ONCE. WILL BE OVERLAID BY 
ee. “PRINTER VECTOR ADDR 
JMP START “RESTART ADDR 
.=250 
IMP STARTS “ENTER HERE FOR COPY UTILITY 
IMP START :COMPATABILTIY PASS 1 
jMP START2 PASS 2 


-=1000 
-SBTTL APT PARAMETER BLOCK 


SRRRE RAR A RARE TA TATA ARATE TATA TAAAA AAA e eee KAA A eee eee eAee 
Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
TTI e iit iti tii iit iii iititifiiiii ii iiiii irri rrr errr: 
;;SAVE CURRENT LOCATION 
;;SET POWER FAIL TO POINT TO START OF PROGRAM 
+s FOR APT START UP 

;POINT TO APT INDIRECT ADDRESS PNTR. 
::POINT TO APT HEADER BLOCK 
;;RESET LOCATION COUNTER 


33 RARER AEAAAAAAAAAERAATAAARATAAAAAAAAAAAAAAAAARAREARAEAARAAAAARAAAEEE 


;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


s INTERFACE SPEC. 


SAPTHD: 
SHIBTS: .WORD 
SMBADR: .WORD 
STSTM: .WORD 
SPASTM: .WORD 
SUNITM: .WORD 
WORD 


0 
SMAIL 
20. 
150. 


0 ADDITIONAL 
SETEND-SMAIL/2 LENGTH MAILBOX~E TABLE (WORDS) 


;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 


: SADDRESS OF APT MAILBOX (B 
;;RUN TIM OF LONGEST TEST 


ITS 0-15) 


RUN fa IN SECS. OF 1ST PASS + 1 UNIT (QUICK VERIFY) 


RUN TIME (SECS) OF A 


PASS FOR EACH ADDITIONAL UNIT 


N 2 
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1509 ~SBTTL COMMON TAGS 

1210 SE RRRARRARARAARAAAEAAAAAAAA AAT AA AERA AACE RAREAEAEAEKAAA TATE ee 
1211 :*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

slg s*USED IN THE PROGRAM. 

1214 001100 -=1100 

1215 001100 SCMTAG: :;START OF COMMON TAGS 

1216 001100 000000 | -WORD 0 

1217 001102 000 STSTNM: .BYTE 0 ;: CONTAINS THE TEST NUMBER 

1218 001103 000 SERFLG: .BYTE 0 ;; CONTAINS ERROR FLAG 

1219 001104 000000 T'CNT: .WORD C ;;CONTAINS SUBTEST ITERATION COUNT 
1220 001106 00 SLPADR: .WORD 0 ;;CONTAINS SCOPE LOOP ADDRESS 

1221 001110 900000 SLPERR: .WORD 0 ;;CONTAINS SCOPE RETURN FOR ERRORS 
1222 001112 00 SERTTL: .WORD 0 ;;CONTAINS TOTAL ERRORS DETECTED 
1223 001114 000 SITEMB: .BY 0 ;;CONTAINS ITEM CONTROL BYTE 

1224 001115 001 ERMAX: .BY 1 :;CONTAINS MAX. ERRORS PER TEST 
1225 001116 00 SERRPC: .WO 0 ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
1226 001120 000000 SGDADR: .WO 0 ;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
1227 001122 00 SBDADR: .WORD 0 ::; CONTAINS ADDRESS OF ‘BAD’ DATA 
1228 001124 0 SGDDAT: .WORD 0 ::CONTAINS ‘GOOD’ DATA 

1229 001126 000000 SBDDAT: 0 :;CONTAINS ‘BAD’ DATA 

1230 001130 000000 ~WORD 0 ; ;sRESERVED--NOT TO BE USED 

1231 001132 000000 . WOR 0 

1232 001134 000 SAUTOB: .BYTE 0 ;;AUTOMATIC MODE INDICATOR 

1233 001135 000 SINTAG: .BYTE O- ;; INTERRUPT MODE INDICATOR 

1234 001136 00 ~WORD 0 

Ise? Betas 177570 SWR WORD DSWR ;;ADDRESS OF SWITCH REGISTER 

1236 1142 177570 DISPLAY: .WORD DDISP ;;ADDRESS OF DISPLAY REGISTER 

1237 001144 177560 STKS: 177560 :;TTY KBD STATUS 

1238 001146 177562 STKB: 177562 :;TT¥ KBD BUFFER 

1239 001150 177564 STPS: 177564 :; TTY PRINTER STATUS REG. ADDRESS 
1240 001152 177566 STPB: 177566 :; TTY PRINTER BUFFER REG. ADDRESS 
1241 001154 000 SNULL: .BYTE 0 ;;CONTAINS NULL CHARACTER FOR FILLS 
1242 001155 002 SFILLS: .BYTE 2 s;CONTAINS # OF FILLER CHARACTERS REQUIRED 
1243 001156 012 SFILLC: .BYTE 12 :: INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
1244 001157 000 STPFLG: .BYTE 0 3;"'TERMINAL AVAILABLE’’ FLAG (B11T<07>=0=YES) 
1245 001160 177607 000377 $BELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 

1246 001164 077 SQUES: .ASCII /?/ ;;QUESTION MARK 

1247 001165 015 SCRLF: .ASCII <15> ;; CARRIAGE RETURN 

1248 001166 000012 SLF: oASCIZ <12> s;LINE FEED 

1249 SE RRARARAAAAAEAAAAAAAKAAAAA AAA HAAR AAKAKARAAHAAeKAAeKHAeKAAee tee 
‘$20 -SBTTL APT MAILBOX-E TABLE 

1252 seeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeekeeeeaeeeteeteeeeenereeteeneree 
1255 

1254 001170 ;;APT MAILBOX 

1255 001170 000000 AMSGTY ;;MESSAGE TYPE CODE 

1256 001172 000000 AFATAL ;;FATAL ERROR NUMBER 

1257 SHES, sas ATESTN ;;TEST NUMBER 

$36 1176 APASS ;;PASS C 

1259 001 ADEVCT ;;DEVICE COUNT 

100 ot AUNIT 3;;31/0 UNIT NUMBER 

1261 1 AMSGAD ;;MESSAGE ADDRESS 

Igoe 001 % 000000 ARSGLG ;;MESSAGE LENGTH 

1263 00121 :; APT ENVIRONMENT TABLE 
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000 
000000 
000000 
000000 


000 
000 


000000 


000017 
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T MAILBOX-E TABLE 


ced 


-BYTE 


$CPUOP: » WORD 


*@e @e Ge PP Fes Se Ge Ge Ge Ge 
eoeeeZBaiewxeernwnnee 
P 
x 3 
mw 
a 


ACPUOP 


AMAMS1 
AMTYP1 


AMADR1 
AMAMS2 





; ENVIRONMENT BYTE 
; ENVIRONMENT MODE BITS 
ba eee euitcn eee 


TYPE 

oA > on 4 AG ony £ 11/20=03,11/40=04,11/45=- 05 
We 70=06,P my 0=10 

T 10=REAL TIME cLO 

' 9=FLOATING G POINT PROCESSOR 






LK#1 
-- (HIGH BYTE) 
C CORE=001 
BIPOLAR=002 
500 +> 003 
; HIGH eh te be gp 
MEM.LAST ADDR. = Bytes, THIS WORD AND LOW OF ‘'TYPE’’ ABOVE 
:;HIGH aor da ch M.S. BYTE 
;; MEM. TYPE BLK 
;;MEM.LAST ADDRESS, BLKA#2 
; HIGH ADDRESS,M.S.BYTE 
;; MEM. TYPE ,BLK&S 
;;MEM.LAST ADDRESS ,BLK&#3 
: HIGH ADDRESS ,M.S.BYTE 
> MEM. TYPE ,BLKA4 
;;MEM.LAST ADDRESS ,BLK&4 
+s INTERRUPT VECTOR#1,BUS PRIORITYA1 
s INTERRUPT VECTORA#2BUS PRIORITY#2 
:;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;;DEVICE MAP 
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001250 


001410 
001416 
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023324 
027364 


023324 
027364 


023345 
027364 


023324 
027364 


023345 
027364 


023365 
027364 


023431 
027364 


023454 
027364 


023502 
027364 


023530 
027364 


023556 
027364 


023607 
027364 


023637 
027364 
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026460 


026460 


026504 


026460 


026504 


026441 


026546 


026577 


026577 


026577 


026577 


026577 


026634 


027070 


027070 


027100 


027070 


027100 


027062 


027114 


027124 


027136 


027150 


027162 


027162 


027174 


MACY11 30A(1052) 
ERROR POINTER TABL 


C3 
— 09:47 PAGE 29 
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SEQ 0028 


-SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 


>*LOCATION SITEMB. TH 
;*NOTE1: IF SITEM 


*NOTE1 


" *NOTE2: 


a 2 @ ® 


SERRTB: 
TERR 1 
sERR 2 
sERR 3 
ERR 4 
sERR 5 
sERR 6 


sERR 7 


sERR 10 


sERR 11 


sERR 12 


ERR 13 


ERR 14 


sERR 15 


IS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
B IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


GLOBAL DATA 
EM1,DH2,012,DF 


EM1,DH2,012,DF 


EM2,DH3,013,DF 


EM1,DH2,D1¢,DF 


EM2,DH3,D15,DF 


EM3,DH1,D11,DF 


EM4 ,DH4,D14,DF 


EMS ,DH5,DT5 DF 


EM6,DH5,D16,DF 


EM7,DH5S.017,DF 


EM8,DH5 ,D18,DF 


EM9,DH5,D18,DF 


EM10,DH6,019,DF 


;;POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

;;POINTS TO THE DATA FORMAT 


er ee eee ee Oe 


ee er re et nr | ee ee ee 


dD 3 
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—_ 
ww 
wi 
Ww 


SERRR eet ea ete NS 
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WANA WIA 
~~ 
“Oo 


em ee cee ee ee ec ce ee ce ee Dc ee ee De De ee ed aed ae od od oe 2.3 od ao —2. “3 od a3 = 


001420 
001426 
001430 
001436 
0014 


40 
001446 


=_ —  ) —d od —> Dd 


001620 
001626 


oo oo oOo FOO 


024066 
027402 


024112 
027372 


024144 
027372 


024176 
027372 


024227 
027372 


024260 
027402 


024314 
027402 


024340 
027364 


024351 
027364 


024366 
027364 


024403 
027364 


024420 
027364 


026701 


026701 


026701 


026701 


026770 


026770 


026701 


026701 


026701 


026701 


026770 


026770 


026441 


026546 


026441 


026441 


026441 


027212 


027212 


027212 


027212 


027234 


027234 


027256 


027256 


027256 


027256 


027300 


027300 


027062 


027114 


027062 


027062 


027062 


17 


20 


21 


22 


23 


24 


25 


26 


27 


30 


31 


32 


33 


34 


35 


36 


EM11,DH7,0110,0F 1 
EM12,DH7,DT10,DF1 
EM13,DH7,0110,DF 1 
EM14,9H7,0T10,DF 1 
EM15,DH8,0T11,DF2 
EM16,DH8,DT11,DF2 
EM17,DH7,01T12,DF 1 
EM18,DH7,D1T12,DF 1 
EM19,DH7,0112,DF 1 
EM20,DH7,D112,DF 1 
EM21,DH8,0113,DF2 
EM22,DH8,0113,DF2 
EM23,DH1,011,DF 

EM24 ,DH4 ,DT4,DF 

EM25,DH1,D11,DF 

EM26,DH1,D11,DF 


EM27,DH1,D011,DF 


ee rr ee ee, ee ee 
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ERR 37 
027062 EM28,DH1,011,DF 


sERR 40 
027062 EM29,DH1,DT1,DF 
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001630 
001636 


001640 
001646 


026441 


026441 


3 


MURITUROIPOIRY — 2 tS 2 ot 
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001650 
001656 


001660 
001666 


001670 
001676 


001700 
001706 


001710 
001716 


001720 
001726 


001730 
001736 


001740 
001746 


001750 
001756 


024516 
027364 


024561 
027364 


024622 
027364 


024474 
027364 


024474 
027364 


024474 
027364 


024474 
027364 


026634 


026634 


026441 


026441 


026441 


026634 


026634 


026634 


026634 


027322 


027322 


027062 


027062 


027062 


027322 


027322 


027322 


027322 


ERR 


s ERR 


41 


42 


43 


44 


EM30,DH6,0114,DF 


EM31,DH6,01T14,DF 


EM32,DH1,011,DF 


EM33,DH1,D11,DF 


EM34,DH1,D11,DF 


EM30,DH6,01T14,DF 


EM30,DH6,DT14,[. 


EM30,DH6,0714,DF 


EM30,DH6,D114,DF 


001760 
001766 


001770 
001776 


002000 
002006 


002010 
002016 


002020 
002026 


002030 
002036 


024661 026634 027174 


027364 


024726 
027402 


024775 
027364 


025021 
027364 


024474 
027364 


025067 
027364 


EM35 ,DH6,D19,DF 


026770 027234 EM36,DH8,D111,DF2 


026634 027174 EM37,DH6,D19,DF 


026634 027174 EM38 ,DH6,D19,DF 
56 


EM30,DH6,D0114,DF 


57 
EM39,DH6,DT9,DF 


026634 027322 


026634 027174 





ee ee 


eee ee ee ee 
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002040 
002046 


002050 
002056 


002060 
002066 


002070 
002076 
002100 
002106 
002110 
002116 


002120 
002126 


002130 
002136 


002140 
002146 


002150 
002156 


002160 
002166 


002170 
002176 


002200 
002206 


002210 
002216 


002220 
002226 


002230 
002236 


025402 
027372 


025441 
027372 


025505 
027372 


025543 
027372 


025604 
027372 


025645 
027364 


025667 
027364 


025713 
027364 


025713 
027364 


026634 


026634 


026634 


026634 


026701 


026701 


026701 


026701 


026701 


026701 


026701 


026701 


026634 


026634 


026577 


026577 


027322 


027174 


027174 


027174 


027212 


027212 


027212 


027212 


027256 


027256 


027256 


027256 


027174 


027322 


027340 


027352 


ERR 60 


sERR 


sERR 


sERR 


:ERR 


61 


62 


63 


64 


65 


66 


67 


EMSC ,DH6,0114,DF 


EM40,DH6,D0T9,DF 


EM41,DH6,D19,DF 


EM42,DH6,019,DF 


EM43,DH7,01T10,DF 1 


EM44,DH7,DT10,DF 1 


EM45 ,DH7,D0110,DF 1 


EM46,DH7,D0110,DF 1 


EM47,DH7,0112,DF 1 


EM48,DH7,DT12,DF 1 


EM49 ,DH7,0112,DF 1 


EM50,DH7,D112,DF 1 


EMS1,DH6,D019,DF 


EM52,DH6,0114,DF 


EMS3,DH5,D115,DF 


EMS3,DH5,0116,DF 


mm we me mw me ee 
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ONO Ww © 


P11 


002240 
002246 


002250 
002256 


002260 
002266 


002270 
002276 


002300 
002306 


00231 
31 


0 
002316 


002320 
0023526 


002330 
002536 


002340 
002346 


002350 
002356 


002360 
002366 


002370 
002376 


002400 
002406 


002410 
002416 


002420 
002426 


002430 
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025777 
000000 


026034 
000000 


026071 
027372 


026126 
027402 


026167 
000000 


026225 
027372 


026262 
027402 


026325 
000000 
025667 
027364 


025667 
027364 


025667 
027364 


024474 


026634 


026634 


026634 


026634 


000000 


000000 


026701 


026770 


000000 


026701 


026770 


000000 


026654 


026634 


026654 


026654 


027322 


027322 


027322 


027322 


000000 


000000 


027212 


027234 


000000 


027256 


027300 


000000 


027322 


027322 


027322 


027322 
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; ERRORS FOR COPY UTILITY 
ERR 100 


EM13,DH6,D1T14,DF 


sERR 101 


0 
EM17,DH6,0114,DF 
02 
EM54,DH6,D114,DF 


03 
EM19,DH6,DT14,DF 


;BAD SECTOR/TRACK TABLE FULL ERRORS 


sERR 10 


4 
EM55,0,0,0 


sERR 105 


EM56,0,0,0 


CRC ERRORS 


06 
EM57,DH7,D0110,DF 1 


107 
EM58,DH8,DT11,DF2 


sERR 110 


EM59.0,0,0 


11 
EM60,DH7,DT12,DF1 

12 
EM61,DH8,0115,DF2 


13 
EM62,0,0,0 
sERR 11 


4 
EM52,DH6,0114,DF 


115 
EM52,DH6,D114,DF 

16 
EM52,DH6,D114,DF 


117 
EM30,DH6,D114,DF 


ee a = wee ee = mee oes 


rn mm re eee “—- —~ 
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002436 


002440 
002446 


002450 
002456 


002460 
002466 


002470 
002476 


002500 
002506 


002510 
002516 


002520 
002526 


002530 
002536 


002540 
002546 


002550 
002556 
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027364 


024505 
027364 


024474 
027364 


024505 
027364 


024505 
027364 


025667 
027364 


025667 
027364 


026361 
027364 


026416 
027364 


025216 
027364 


025667 
027364 


026634 


026634 


026634 


026634 


026634 


026634 


026441 


026441 


026654 


026634 


027322 


027322 


027322 


027322 


027322 


027322 


027062 


027062 


027174 


027322 
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ERR 121 


120 
EM31,DH6,D0114,DF 


2 
EM30,DH6,0114,DF 


sERR 122 


22 
EM31,DH6,9114,DF 


sERR 123 


;ERR 


EM31,DH6,0114,DF 
ra 
EM52,DH6,0114,DF 


25 
EM52,DH6,D0114,DF 
FIS ERRORS 


26 
EM63,DH1,011,DF 


127 
EM64 ,DH1,D0T1,DF 


;NORMAL ERRORS 


sERR 


ERR 


130 
EM42,DH6,DT9,DF 


131 
EM52,DH6,D114,DF 
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000000 


000012 


000000 


000012 


a 
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SRAARAAAARAAAAAEAAEAAAAAAAAAERATAAAAAAAAAAAAAK AREA AAAS 


REGISTERS & BUFFERS FOR DxO TESTS 


SRRARARAAAAAAHAAAEAATAEAAREKAAAEEAAAAAAAAAAAKAAAAAAAAAAA RAAT AAAS 


DOPAT: 0O ;DxX0 PATT TEST DONE FLAG 
DOCNT: 0 “0X0 RANDOM SEEK COUNTER 
DOERR: QO -DXO RCSR ERR COUNTER 

DOTRK: 0O :DxO TRACK 

DOSEC: 0 ;Dx0 SECTOR 

DOCMER: 0 :DXO DATA COMPARE ERROR FLAG 
DOCERR: 0 :DXO TOTAL DATA COMP ERROR CT 
COEXP: O ;Dx0 EXPECTED DATA 

DOREC: 0 ;DxXO0 RECEIVED DATA 

DOCRC: 0O ;Dx0 CRC orn FLAG 

DOBUF: .BLKW 100 :DXO0 DATA BUFFER 

DOBAD: .BLKW 10. :Dx0 BAD TRK/SEC TABLE 


5 RRR AAAARAAAREREAAAEAEA EERE RAAAAAAAAAAREEAAAEAAKAAARAEKAARAA AES 


“REGISTERS & BUFFERS FOR DX1 TESTS 


SS RRAR ARERR RAAAAAAEAAEEAAEAAARERAEARAAAARAAAAEAAAERERAEEARO KARAS 


DIPAT: 0Q ;0X1 PATT TEST DONE FLAG 

DICNT: QO ;0X1 RANDOM SEEK COUNTER 

DIERR: 0 ;0X1 RCSR ERR COUNTER 

DITRK: 0 ;DX1 TRACK 

DISEC: 0 ;0X1 SECTOR 

DICMER: 0 ;DX1 DATA COMPARE ERROR FLAG 
DICERR: 0 ;0X1 TOTAL DATA COMPARE ERROR CT 
DIEXP: Q ;DX1 EXPECTED DATA 

DIREC: 0 ;0X1 RECEIVED DATA 

DICRC: OQ 


DIBUF: .BLKW 100 “DX1 DATA BUFFER 
DIBAD: .BLKW 10. “DX1 BAD TRK/SEC TABLE 





SESSS TESTES 


1670 


D 
P11 


003300 
003476 


PoTii- ie EXERCISER 
14-JUL-80 16:36 


000077 
000000 


000000 
000000 


000000 
000000 
000000 
000000 


000000 
000000 


007000 
007000 


MACY11 30A(1052) 


J 3 
O1-DEC-80 09:47 PAGE 36 
ERROR POINTER TABLE 


SEQ 0035 


SRRAAAARAAAAAAAAAAAATAAE TATA AEH AHERAAARARAAAARAAKARAA AHA RAKE AA AES 


: PATTERN TABLE 


‘ PATTERN 1S ''125252"" FOR THE 1'°ST PASS, RANDOM FOR 2°ND & SUBSEQUENT PASSES. 
; PATTERN 1S DETERMINED BY "'SETPAT'’ ROUTINE. 


Ss Ce eeeeeeennncccccnccccocnneceneeeeeceeeeeneceenecensonssooneees 


WCP: 
CXTST: 


FIN: 


MAXTRK: 


MAXSK: 


COPFLG: 


COMP 1: 
COMP2: 


SMFLG: 


SEKFLG: 


~BLKW 77 


0 


oo o°0cooOo Oo Oo 


FILL & EMPTY BUFFER TEST 
DATA PATT TEST 

RANDOM SEEK TEST 
INITIALIZE TEST 

RESTORE TEST 

WRITE DELETED DATA TEST 
INVALID ADDRESS TEST 


OAR TRA ka DxXO & DX1 FOR TRK/SEC FINISHED 
:0 FOR 1°ST PASS, 114 FOR pepe e PASSES. SET AT START. 
;# OF RANDOM SEEKS TO BE PERFORMED. 

:10 FOR 1'ST PASS, 500 FOR SUBSEQUENT PASSES. SET AT EOP. 

; 0 = NORM TEST 1 = COPY UTILITY ACTIVE 

;1 = COMPAT TESTS, PASS 1 

;l = PASS 2 
;SYNC MODEM FLAG 

;SEEK ERROR FLAG 


Se Ge Ge Ge Be Se Ge 
Own Ewr— © 
nnnenhhhtn 


SRRAAKAAAAAAAA REAR AATA AAA AE AAA AAKRKAReReeKeeeeteKeketeKeeeterene 


:DEFAULT BAUD RATE REGISTERS 


SEAR AAAAAAAAARAHAAAAAAAAAAATAAAAAAAAAAAAAAAAAAAAAAAAAARAARA ARATE 


PRBAUD : 
SMBAUD : 


>PRINTER DEFAULT 


: TEMP HOLDING REG 


ee ee me ee . -——<— 


CVKDAD 


Se 


InN 


POROROMORO POR — st tt ot 
WA UE WN @ 0 OO VNOUEWN Oo 


SNS NS SSNS 


rer 
Ue 


ee ee ee ee ee ee ee ee ee ee ee ee ed etd od od od ot od 


ANN NS 


A 
WnN— 


PoT11-150 EXERCISER 


005237 
000424 


005237 
005037 
000421 


005237 
005037 
005037 
000414 


012737 
012737 


005037 
005037 
005037 


ooooo 
\W—— — 
= MOMIRITI UW 


= S 

™ 

~ 

-—-9Oo —Nwuw 
Cow NANO 
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003512 


000102 
000002 


003510 
0035i2 
003506 


001100 
000100 


000042 
001210 


000042 


001100 
001140 
001100 


000100 
000102 


175306 


005054 
000001 


000036 


001140 
001142 
175150 


MACY11 30A(1052) 
PROGRAM 


~SBTTL PROGRAM 


START: 


START2: 


STARTS: 


s NORMAL 
START: 


$1: 
S2: 
$3: 


2$: 
. SBTTL 


>; CLEAR 


#STACK,S 
ss INITIALIZE A FEW VECTORS 
#SERROR, @#EMTVEC ;:EMT VECTOR FOR ERROR ROUTINE 

#340,a8 +2 ::LEVEL 7? 

estRAP Qs TRAPVEC sj TRAP VECTOR FOR TRAP CALLS 
MOV a#TRAPVEC+2;LEVEL 7 

::SIZE FOR A HARDWARE” S SWITCH REGISTER. 

=: EQUAL TO A vot st SET 


64$: 


INC 
BR 


INC 
R 


START AND RESTART 
MOV #CLKVEC+2,CLKVEC 
#RTI, CLKVEC#2 


MOV 


CLR 
CLR 
CLR 


ee 


2 
01-DEC-80 09:47 PAGE 37 


COMP’ 
$1 


COMP2 
COMP’ 
$2 


COPFLG 


COPFLG 


#STACK,SP 
#100,a$TKS 
#PR4 
106427 
PR4 
42,HLD42 
SENV,#1 
2$ 

42 


SEQ 0036 


;COMPAT PASS 1 


;COMPAT PASS 2 


;COPY UTILITY 


;DO RTI IF CLOCK INTERR 


;NORMAL TESTING 


;SETUP STACK POINTER 
:DISABLE ANY TTY INTERRUPTS 
;TO RT-11 MONITOR 

:DISABLE INTERRUPTS 


3; SAVE 

sAPT? 

;BR IF YES 

sELSE CLR SO WE CAN USE SOFTSWR 


INITIALIZE THE COMMON TAGS 
on COMMON TAGS (SCMTAG) AREA 


MOV 


MOV ER 

MOV #64% ,a#ERRVEC 
MOV #DSUR, SUR 

MOV #DDISP, ete 
CMP -1,aSuR 

BNE 

BR 65% 

MOV #65$, (SP) 


#SCMTAG,R6 
~~ (R6)+ 
— LR6 ; ;DONE? 


-om geCl 


;;FIRST LOCATION TO BE CLEARED 
LEAR MEMORY LOCATION . > -» +2 


LOOP BACK IF NO 
t SETUP THE STACK POINTER 


FOUND OR IT IS 


IF NOT 
2 A SOF TWARE oh REGISTER. 
RVEC, -(SP) ERROR VECTOR 


T UP ERROR VECTOR 

SETUP FOR A HARDWARE SWICH REGISTER 
® SAND A HARDWARE DISPLAY ~ jp SA 
:;TRY TO REFERENCE HARDWARE SWR 
;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
+s AND THE HARDWARE SWR IS NOT = -1 

;BRANCH IF NO TIMEOUT 
:;SET UP FOR TRAP RETURN 


CVKDAD 
CVKDAD .P11 


yy 


SAIN SS NSN NNN 
oS SSeS Sess 


PROS 
GSAFS 


PoTli- mt te EXERCISER 
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112737 
000423 


005227 
001401 
104406 


012737 
012737 


005037 
0050357 


005737 
001056 


000176 
000174 
000004 


001176 
000200 


001212 


177777 
004120 
000042 
001210 
001140 


000001 


177777 


000004 
000012 


031432 
031434 


003506 


001211 
001140 


000001 
000176 


001134 


003502 
003504 


MACY11 30A(1052) 
INITIALIZE THE COMMON TAGS 


65$: 
66$: 


67$: 
A 


L 2 
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SEQ 0037 


MOV #SWREG, SUR 
MOV #DISPREG,DISP 
MOV (SP)+¢, SeERRVEC 


* dean TO SOFTWARE SWR 
" | sRESTORE ERROR VECTOR 


CLR SPASS ;;CLEAR PASS COUNT 
BITB #APTSIZE ,SENVM TE T USER SIZE UNDER APT 
BEQ ;YES,USE NON-APT 


SWITCH 
MOV #SSWREG, SWR ::NO,USE APT SWITCH REGISTER 


TYPE PROGRAM NAME 


: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 


~SBTTL 


70$: 
71$: 


::69$: 
68$: 


3$: 


INC #-1 ssFIRST y* 
Hoow IF 
YPE ,69$ YPE ASCIZ. STRING 
cer VALUE FOR SOFTWARE shitcn REGISTER 
TST a#42 ;;ARE WE RUNNING UNDER XXDP/ACT? 
BNE 70$ +3BR ANCH IF YES 
a ARE WE RUNNING UNDER APT? 


CMPB SENV,#1 

BEQ 70$ ;BRANCH IF YES 

CMP SWR ,#SWREG :;SOFTWARE SWITCH REG SELECTED? 
BNE 71$ ; BRANCH IF NO 

— n$ ;;GET SOFT-SWR SETTINGS 

MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 

68% ;GET OVER THE ASCIZ 

ASCIZ <CRLF>*CVKDAD pbt- -11/150 SYSTEM EXERCISER*<CRLF > 
INC #-1 ;1°ST TIME? 
BEQ 3$ ;BR IF YES 

GTSWR 


RK 0-4, 40-44, 72- 76(10) FOR 1°ST PASS 
£10 RANDOM SEEKS FOR 1'ST PASS 


;TOTAL ERR CT 


MOV #4, MAXTRK 
MOV #10. ,MAXSK 


CLR TERR 


CLR TSERR ;TOTAL SOFT ERR CT FOR EOP TYPEOUT 
TST COPFLG ;COPY UTILITY? 
BNE LOOP ;BR IF YES 


CVKDAD 


BASS SSR EE OR TSS 


TK) PA ab a es st 


ee el el el ce el cel ee ee et ce ee ce ce ce cD ce ce ce ed ee ed aed ed 
NM —O O@wVNOUFWN— © 


™m 


ow USS 
NO NwmOrT 


Se Bune 
SS BxNe 


WW 


te 
wiw 
NOD EO & 
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105037 
104401 
104401 


104401 
104411 


005726 


001031 


052737 
042737 


me of 
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001210 


030473 
022614 
030464 


030524 


003510 
003512 


000006 
000006 


012106 
021746 
001210 
001000 
000400 


022150 


000001 


000001 
001246 
001246 


M3 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


*RERRAAEAAAAARAAEATAAAAAAAAKAAATAAARAARAAAAAAAAAAEAAAAAAARAARAEARARAEAEE 


: DEVICE MAP 


MmARRBRBARBARLARASERAAARARAAALALARARARRRRRA RRR RRARRRR RRA REAR AAR AAA SD A | 


CMPB SENV,#1 ; APT? 
BEQ 4$ ;BR IF YES 
GTDEVM ;SHOW CURRENT DEVM & GET NEW 


“RERRAKEAAAAAAAEAAATEEAAEAAARETAEEAAAAAARAARAARARAAAAAARAAEEAAARAAARAEE 


: GET SYSTEM SERIAL NUMBER 


MARBRBARBABLALALAAAAALALAREARARARARASSRARERARARR RRR AAR RARARARR READ SS | 


CLRB STTYING? 
TYPE »SERTAL 
TYPE »STTYIN 
TYPE , SMNEW 


(SP)+ 


;SHOW CURRENT SERIAL #@ 


;GET NEW 


MARBRARALAZALALAAAALEAARAAARARARLARLARARARARRR RRR RARARRARA RRA A DAS OS 


: CHECK FOR COMPATABILITY TESTING 
PEC IT ici titi ti iitititititiliriitiiititiiiiii iii rrr 
4$: TST COMP1 ;COMPAT PASS 1? 

BNE LOOP BR IF YES 

TST COMP2 ;COMPAT PASS 2? 

BNE LOOP BR IF YES 


BIS #<RTS'DTR>,AMRC 
BIC #<RTS!DTR>,AMRC ;DTR MUST BE TOGGLED. 


RARER AAAAAHAAAAAAAAAAATAAAAAERAAAAAAAAAAAAAATAAAAAARAEAAEAAAAAEE 


: SIZE SYSTEM & SHOW DEFAULTS 


MARBRBEBAAALZALLLALASALRRRARARARARARARRRRARRRRR ARAL ERAS AS ARRAS RSS SD S| 


JSR PC SIZE ;SEE WHO IS ON THE SYSTEM 


TYPE ,DEFBD ;SHOW ALL DEFAULT BAUD RATES 
CMPB SENV,#1 ;ARE WE RUNNING UNDER APT? 
BEQ LOOP ;BR IF YES & DONT HALT 
BIT #1000,$DEVM :DX0 THERE? 
BEQ 1$ :BR IF YES 
BIT #400 ,SDE VM ;DX1 THERE? 
BNE LOOP BR IF NO 
1$ ag » WARNING : INSERT SCRATCH DISKS 
HAL 


s;MAKE SURE NULL AT END OF INITIAL LOAD 


;CLEAR STACK, SERIAL # ALWAYS IN TTYIN 


CVKDAD 
CVKDAD 


~m 
Ww 


Mmrorr 
Sono 


eh et eh yet ph heh wh yg et at et et ot 
WAR AR UNOS 


WW 
UEWN $0 OOnOUVEWN OO 


RELFESELELE 


Go Od 09 Od Co OD 
MVIVvIuviy 


P11 
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012706 
004737 


000005 
042737 


106427 
000000 
052737 


004737 


005037 
005037 


004737 
004737 


001405 


012737 
000137 


005737 
001402 
000137 
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001100 
013620 
000100 


000006 


013620 


031436 
031440 


013716 
012644 


003579 
003512 
007750 
003506 
020714 


177546 


176610 


003502 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


REAR AEAKAAEAKAAAAEKAAAAAHKATAEAAAAAAAARARAARAHARARAAAAAAAAAAAAARAEE 


% NOW WE CAN DO SOME SERIOUS TESTING 


SRAAAAAAEAAARARAAEAAAAREEEEEH = UAARAAHAAAAAAAAAAATAAAAAAAAAAAAAAETE 


LOOP: MOV #1100,SP ;LOOP HERE AFTER EOP & RESET STACK 
JOR PC, TIMER1 ;TIMER TO ALLOW ‘P* TO PRINT BEFORE RESET 
RESET :CLEAR ALL INTERRUPT ENABLES ONLY ON 1'ST PASS 
38: BIC #1E,CLK SRESET SETS CLK IE. DONT ALLOW YET 
;MTPS = #PRO ;ALLOW INTERRUPTS 
WORD 106427 
PRO 
BIS #<RTS!DTR>,AMRC ;TO CONDITION ALL TERMINALS & 
;COMM PORT TO OPERATE IN EXT LOOPBACK MODE. 
:NC HARM IF LOOPBACK NOT USED. 
JSR PC, TIMER1 ;TIMER TO ALLOW PREV XFERS TO FINISH 
CLR PERR ;PASS ERR COUNT FOR EOP TYPEOUT 
CLR PSERR ;PASS SOFT ERR COUNT FOR EOP TYPEOUT 
JSR PC,CLRBAD ;CLEAR BAD SECTOR/TRACK TABLES 
JSR PC,SETPAT :LOAD "WCP"’ TABLE WITH PATTERN 
TST COMP 1 ;COMPAT PASS 1? 
BNE 1$ ;BR IF YES 
TST COMP2 ;COMPAT PASS 2? 
BEQ 2$ ;BR IF NO 
1$: MOV #114 ,MAXTRK 
JMP DXTST1 ; COMPATABILITY TESTING 
2$: TST COPFLG + COPY UTILITY? 
BEQ MEMTST R IF NO.. NORMAL TESTING 
JMP COPY ELSE GO COPY 


a ee - = —- + 


SEQ 0039 


CVKDAD 
CVKDAD .P11 


a 


FESFSSE 


See 


ee ed ek ed ed nt ed 
NOUS WNM "OO 


— > 

4 parhepet eta wth thw 
CONN NN NSN NSN NSS 

—O Oo 


& 00 
Wh 


oo 
Oo 


004502 


004506 
004514 


004522 
004526 
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004737 


012737 
012737 


013703 
162703 


005004 


001363 


16:36 


013104 


014174 
000200 


012622 
000000 


014202 
014202 
005052 


032276 


000004 
000006 
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PROGRAM 


~SBTTL PROGRAM 


SRAARARAAAAAAAAAEEAEAAEOSE ERAS OEEEAERAAAEEAERARERAAAAAAAAAARANRTEE 


MEMORY TESTS 


1. MEMORY FROM 0 TO THE L 
. MEAORY FROM ‘LSTAD' i THE BOT 


iS TESTED B 
3. MEMORY FROM 'LSTAD' To THE SOTT THE RT=-11/XXDP 
IS FIRST WRITTEN WITH ITS ADDRESS AS DATA THEN READ BACK & VERIFIED. 


SRARARERAERERARAEAAEEEAEEEAEEEAEREERAREEREREERARARAAAAEARAAARAA AEE 


MEMTST: JSR PC, ,EXAMKB 


ASi LOC o PROGRAM (LSTAD) IS HH FOR TIMEOUT. 
THE RT-11/XXDP MONITO 


Se Ge @e Ge Ge Se Ge Ge Se 
— 


MOV #INTSRV,ERRVEC ;SETUP TIMEOUT TRAP ADDR 
MOV #200, ERRVEC +2 
MOV MAXMEM,R5 
SUB #0,R3 :TEST ONLY AS FAR AS XXDP MONITOR Ys NOT RT-11 
. : WHEN XXDP AVAIL. SUBSTRACT 1.5K (10) 
SRERREAEERAEAEERARE EEE AA AER ERE AA AAEEAEAAARAAARAEAAAEAAAERAR EES 
Test FOR TIMEOUT FROM O TO ‘LSTAD’ 
SRR AREE AERA AEE A AREA ERAAREAAAEAARERAREAAAARA RARE EEE 
CLR R sADDR POINTER 
1$: CLR INTFLG 
TST (R4) a LOCS 0 THRU END OF PGM. 
TST INTFLG ; LZ MEOUT? 
BEQ $ R IF NO 
MOV R4,ADDR “FOR ERR TYP 
ERROR 1 ;TIMEOUT ON READ 
2$: TST (R4)+ * BUMP ADDR 
CMP R4,#LSTAD sAT END? 
BNE 1$ ;BR IF NO 


TOM OF R 
F A 125252 fon OF FOLLOWED BY A une PATTERN. 


SEQ 0040 


eee eee ee eee 


1897 
1898 


22233 


WAAR PO PON PI PI NPIPINYINQ — 2 = I? Pt OS 
=O OO NO UF WR" 0O OOTNOuUFWN oO NOw 


SSD ODDO DODDDDDOOOOOOOOOODOOOE 
oo oooovoovowvovov7oo 

RELEREREP REAR 

CO OO NOAA VE WN © ODA NE wiry 


Dd 
P11 


004566 
70 


PoT11-150 EXERCISER 


ooo 
=——O 


o2S5=5 


000740 


012704 


010414 
005724 
004737 
000773 


012704 


104005 


005724 
004737 
000763 


012737 
005037 
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005046 
005046 


005052 


005014 


052525 


032276 


005014 


032276 


005052 
005050 
005046 


005014 


000006 
000006 


005050 


005050 


005050 


000004 


rr cr el ee 
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PROGRAM SEQ 0041 


S RRRRRR ERRATA AEA RETEA KER TETAAAAAAKAAEKE RAHAT Ae TEKH TAT eee 


; TEST READ/WRITE PATTERNS FROM 'LSTAD’ TO BOTTOM OF MONITOR 


SE RRAAAAARAAAAAAAAAAAAEA AREA AERA AAAAAAAAAARAAAAAAETAAAAAAAAAEE 


CLR R5 ;PASS CTR 
MOV #125252,PAT :DATA PATT FOR 1°ST PASS 
8$: MOV #LSTAD,R4 *ADDR POINTER. R/W LOCS LSTAD THRU 
;BOT OF RT11 OR BOT OF ABS LOADER 
3$: CLR INTFLG 
MOV PAT, (R4) sWRITE 
TST INTFLG ; TIMEOUT? 
BEQ 4$ ;BR IF NO 
MOV R4,ADDR sFOR ERR TYP 
ERROR 2 s TIMEOUT ON WRITE 
4$: MOV (R4) ,MEMHLD ;READ 
CMP MEMHLD ,PAT ; COMPARE 
BEQ 6$ 
MOV R4,ADDR sFOR ERR TYP 
ERROR 3 ; COMPARE ERROR 
6$: TST (R4)+ sBUMP POINTER 
JSR PC ,BOTMON ;SEE IF AT BOTTOM OF MONITOR 
BR 3$ sRET HERE IF NO 
TST R5 sELSE HERE 
BNE 9$ 
INC RS 
MOV #052525,PAT :DATA PATT FOR 2'ND PASS 
BR 8$ sREPEAT 


TAREE SESZSEASALCLESZLALALLELALLESLA LEELA LER RRR R ER RRR RRR RRR ARR R RRR ADS SO 


“ADDRESS TEST. WRITE EACH LOC. WITH ITS ADDR. AS DATA. THEN VERIFY. 


SERRA ARERR AAA AEA AAA AAA AAA AAA AAAAAAARAAA ARERR R ERA E EES 


9$: MOV #LSTAD,R4 :ADDR REG 

10$: MOV R4, (R4) :LOQAD ADDR AS DATA 
TST (RG) + “BUMP ADDR 
JSR PC ,BOTMON “SEE IF AT BOT OF MON 
BR 10$ "RET HERE IF NO 

-VERIFY PASS 

MOV #LSTAD,R4 

11$: CMP RG, (R4) :READ & CHECK 
BEQ 12$ “BR IF OK 
MOV R4, ADDR 
MOV R4 PAT 
MOV (R4) ,MEMHLD 
ERROR 5 MI SCOMPARE 

12$: TST (RG)+ -BUMP ADDR 
JSR PC ,BOTMON “SEE IF AT BOT OF MON 
BR 11$ "RET HERE IF NO 
MOV WERRVEC +2, ERRVEC “RESTORE TIMEOUT VECTOR 
CLR ERRVEC+2 : 


CVKDAD 
CVKDAD 


OOOOOOOOO 
PAA 
DONAULSWN— 


o 
oOo 


ee ee ec ee ed aed wd 2) od od = 
tts 
oo 
wnN— 


SzEEF 


.P11 


004764 
004770 
004772 


005046 
005050 
005052 
005054 
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004737 


000421 


023727 


000403 


020437 


000207 
000000 


000000 
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012624 
010000 


022561 
022574 


005054 


000054 


000002 


174140 


001000 


MACY11 30A(1052) 
PROGRAM 


er ee ee ee ee eee ee we 
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SEQ 0042 


; CHECK IF CONSOLE PRESENT 
;RET HERE IF NO 
:SKIP TYPEOUT IF NOT SET 


SREREERERAREERAAEEEAEEAEAAAAEAAEEAAAAAAAAAAAEAAARAAAEAAARRER AAA ES 


:ROUT INE TO DETERMINE IF AT BOTTOM OF RT-11.0R XXDP MONITOR 


TT TT ITT t iti ti iii iit iit iit titi iii tii rir iri rir Ty, 


BOTMON: CMP 
BEQ 


E 

CMP 

BNE 

BR 

1$: CMP 

BNE 

2$: ADD 

3$: RTS 
MEMHLD: 0 
PAT: 0 
ADDR: 0 
HLD42: 0 


HLD42,#1000 
1$ 

R4,R3 

3$ 

2$ 

R4,54 

3$ 

#2, (SP) 

PC 


;RT~11 - LOC 42 = 1000 
:6R IF 


T=11 
sELSE At ‘got OF XXDP MON? 
R IF NO 


;LOC 54 CONTAINS LOW ADDR OF RT=-11 MON. 
;BR IF NOT THERE 
;RET+2 IF AT END 


>PUT MEMORY READ HERE 
:PATT TO BE WRITTEN & READ 
;ADDR UNDER TEST 

;SAVE LOC 42 


ee ee eee 


eae os a 


EEE 


ee ee ee 


E—E 4 
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CVKDAD.P11 14-JUL-80 16:36 PROGRAM SEQ 0043 

1979 | esata boty ted» ->- pin +a aia aan 

1980 ; EIS/FIS TEST SECTION 

1981 cake Genet, ESaGn, Aa ca hee Ganeerene Laem Gmaeeh a 

1982 005056 012737 001750 005730 EISFIS: oat #1000. ,EISCNT 4 Th: EXECUTION LOOP COUNTER 

1983 005 005737 012612 TST ELPRES TEST IF hh, DETERMINES EIS-FIS PRESENT 
1984 005070 001404 BEQ 1$ “BR IF NOT PRESENT 

1985 005072 032737 000100 001246 BIT #BIT6,SDEVM Hie IF EIS/FIS IS ENABLED 

1986 005100 001402 BEQ ASH YES 

1987 005102 090137 005760 1$: JMP NOEIS s BYPASS THIS SECTION = NOT SELECTED 

1988 MITITITILITILITI LLL 

1989 ;TEST ASH LEFT INSTRUCTION 

1990 RARER AEAEEEEAETEAEEEEAERERERAERARERAERERAAAERERERAEAEEEE 

1991 005106 012702 125252 ASHI: MOV #125252,R2 ;LOAD VALUE TO BE SHIFTED 

1992 005112 000257 ccc ;CLEAR CONDITION CODES 

1993 005114 000264 SEZ ;SET Z BIT 

1994 005116 0270 SEN ;SET N BIT 

ib 4.44 005120 072227 000001 ASH #1,R2 a ak Ve = $2524 

1997 005124 100403 BM] 1$ ;1F N SET, REPORT ERROR 

1998 005126 001402 BEQ 1$ ;1F Z SET, REPORT ERROR 

1999 005130 102001 BVC 1$ sIF V = 0, REPORT one 

2000 005132 103401 BCS 2$ s1F C SET, GO ON WITH TEST 

2001 005134 104126 1$: ERROR 126 : INCORRECT CONDITION CODES FOR ‘‘ASH LEFT"’ 
2002 005136 022702 052524 2$: CMP #52524 ,R2 :RESULT CORRECT ? 
2003 005142 001401 BEQ ASH2 F OK 
2004 005144 104127 ERROR 127 INCORRECT DATA FOR ‘‘ASH LEFT" 

2005 WITTTITITITI TIT TTT IIIT LILI T TI TIT itil iii iii iti tii 

“TEST ASH RIGHT INSTRUCTION 

00 RRR RAEAAEREAERERAEEEAERAEAEAEAAAAERAERAAAEAAAEAARAAERRARRERAES 
2008 005146 012701 052525 ASH? : MOV #52525,R1 ;LOAD VALUE TO BE SHIFTED 
2009 005152 000257 ccc ;CLEAR CONDITION CODES 
2010 005154 072127 177777 ASH ;SHIFT RIGHT 1, “sage = 25252 
2011 005160 022701 025252 CMP f25882, R1 :RESULT CORRECT | 
2012 005164 001401 BEQ ASH F OK 
2013 005166 104127 ERROR Shs sUNCORRECT DATA FOR ‘‘ASH RIGHT" 

2014 + eee eeeneeeeeeeeeHeeeeeeeeeeeeeneeeeeeeeeeeneeeeneenererereee 

2015 > TEST ASH LEFT SHIFT 000001 BY 16 SETS C. 
2016 s RRARAAREHAAHHCARATHA AAA AAA AAAAKE KATA KART KeAKeKeAAKeKAtAeetee 

2017 005170 012700 000001 ASHS: MOV #1,R0 ;LOAD VALUE TO BE SHIFTED 
2018 005174 000241 CLC ;CLEAR C BIT 

2019 005176 072027 000020 ASH #16.,R0 ;SHIFT LEFT 16 TIMES 

2020 005202 103001 BCC 1$ “BR IF ERROR 

2021 005204 001401 BEQ  ASH4 BR IF DATA CORRECT : 
2022 005206 104126 1$: ERROR 126 : INCORRECT CONDITION CODES FOR ‘ASH LEFT 
2023 POTITITITITITITITT LILI I LIT ITT Lith itttiti thi ttt 

2024 sTEST ASH RIGHT SHIFT 100000 BY 16 SETS C. 

2025 seeeeeeeeeeeeteeeeeetereretereeeeeeeeeeeeeKeeetenetereteerereree 

2026 005210 012700 100000 ASHA: MOV #100000 ,RO ;LOAD VALUE TO BE SHIFTED 

2027 005214 000241 CLC ;CLEAR C BIT 

28 005216 072027 177760 ASH #-16.,R0 ;SHIFT RIGHT 16 TIMES 

029 005222 103401 BCS 1$ BR IF NO ERROR f 7 
2030 op asSe 104126 ERROR 126 F he rou $3. Peete CODE FOR ‘‘ASH RIGHT 
2031 005226 020027 177777 1$: CMP RO,#177777 =CHECK DAT 

2032 005232 001401 BEQ = ASHC1 :BR IF OK : i 

2033 005234 104127 ERROR 127 > INCORRECT DATA FOR ‘’ASH RIGHT 


; 
me me ee ee ee ew ee 
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100002 
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ee ee 


“MHRA RReRRRTHeKHHKeeTeKeeeeeeeeneeaeeaeeekeneneeeaeeeeeneeeeaese 


TEST ASHC LEFT INSTRUCTION 


SRAAAAAAHAAEHRHHEAAEKEAAAEEAEAAE AHHH HHHHHAEARAEAEAAEEARAAAEEAAAAEE 


; CLEAR ona REGISTER 


ASHCI: 


CLR 


Re 
#125252,R5 


#16. ,R2 


1 
#125252,R2 
3$ 


127 
R3 
ASHC2 
127 


:LOAD V 


> SET 
;SET C BIT 


:SHIFT LEFT R3 INTO 3 


;RESULT: N=1 


IF 2S 
IF V = 
R 


i <4 


—e- s+ © 


OK 
;BR IF COR 


;R3 0 
:BR IF 


,2=0,V=1 
E 


LUE TO BE SHIFTED 
Ts ‘ae CODES 


REPORT ERROR 
REPORT ERROR 


OK 
CONDITION CODE FOR ASHC LEFT 


RECT 
+ INCORRECT DATA FOR ‘‘ASHC LEFT"’ 
K 


CORRECT 
; INCORRECT DATA FOR ‘'ASHC LEFT” 


SF RRARAAAAAEAHAHRHAAEHAAAAAAAAAARERAAAAAARARAAAAAKAAAARAKAA HAAR KATES 


; TEST ASHC RIGHT INSTRUCTION 


SF RRAAAREAAAAAEAAAATEAEAEAAAREKAAHAARAHAAAAAAAR RARER AAA AAAS 


ASHC2: 


1$: 


3$: 


CLR 


R3 
#125252,R2 


#-16.,Re 


127 
#125252,R5 
ASHC5 

127 


;CLEAR MSW 
sLOAD VALUE TO BE SHIFTED 
;sCLEAR CONDITION CODES 

= SET Z BIT 


;SET V BIT 
C BIT 


> SET 
; SHIFT | 16 PLACES 


_ 
es | 
se 

iT 
So 
. 


TEST 
: INCORRECT CONDITION CODES FOR 


T R2 


REGISTER 


BR IF CORRECT 


; INCORRECT DATA FOR _— RIGHT" 
:TEST R2 TO R35 SHIF 
BR IF CORRECT 

; INCORRECT DATA FOR ‘‘ASHC RIGHT" 


ee ee 


““ASHC RIGHT" 


SEQ 0044 


eee ee ee ees 
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—-Oo—-000 
ooon—o 
NA UV"! 
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a2 =n 


012700 


104127 


000002 
000037 


100000 
000040 


177777 
177777 


ee ee —_ = =~ 
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PROGRAM SEQ 0045 
“RRR AeHeEKeCeEReeeeeeeReReRRRReRAARRAReHeeaekekeseeeaeeeeeese 
“TEST ASHC LEFT SHIFT 00000,0002 BY 31 SETS C. 


WOTTTTITITITITITITILITE TILT TTTTTTLILLITiTLiTiTiLi iti 


ASHC3: CLR eS ;CLEAR MSW REGISTER 


MOV ‘LOAD VALUE TO BE SHIFTED 
ASHC #84" ‘RO “LEFT SHIFT 0002 BY 31. 
BCC 1$ “BR IF C BIT CLEARED 
BEQ ASHC4 “BR IF RESULT =0 
1$: ERROR 126 INCORRECT CONDITION CODE FOR "'ASHC LEFT" 


SS RAAAAEARAAAAAAAAE TARE EAE AEAAEETAAAAAAAAAAAARARAERATAAAKARAA AREAS 


-TEST ASHC RIGHT SHIFT 100000,00000 BY 32 SETS C. 


SS RRARE ARERR AEAAA TARE AAA A EEE AAEAAAAAAAAAAAAAEAAATEARAA ARATE 


ASH(C4: MOV #100000 ,R0 ;LOAD VALUE TO BE SHIFTED 
CLR R1 ;CLEAR LSW REGISTER 
ASHC #32.,R0 :SHIFT RIGHT BY 32. 
BCC 1$ :BR IF ; BIT CLEARED 
BMI 2$ ;BR IF N BIT SET 
1$ ERROR 26 ; INCORRECT CONDITION +m FOR "‘ASHC RIGHT” 
2$ CMP #-1,R1 :CHECK LOW ORDER RESUL 
BNE 3$ :BR IF IN ERROR 
CMP #-1,R0 ; CHECK phe ORDER RESULT 
BEQ MULO :BR IF CORRECT 
3$ ERROR 127 ; INCORRECT NDATA FOR ‘'ASHC RIGHT" 


Se ee re ee ee ee eee 
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012700 


104127 


012701 


104127 


125252 
040000 


165252 
100000 


152525 
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PROGRAM 


WRRPRRRRRBRBAALALASASARARERRRRRRARA RR RRR RRR R RRR RRR RRR RAR R RRR RADA SD A A 


“TEST MUL INSTRUCTION 


SF ERAAAAARAHAAAAAAKEKAAAETAHAAAHAHKAAAAAAAAAEAKARAAAAA AAA AAA AHA AS 


MULO: 


ade ad 


n— 


3$: 


**@eeeeene 


125252%40000=165252,1000 
MOV #125252 ,R0 


#40000,R0 
1$ 

1$ 

1$ 

$ 

126 
—— 
#100000 ,R1 
DIVO 

127 


;TEST DIV INSTRUCTION 


'WERARBBABRBABARBAREBRASLARARARSARSRARRAARASLERRRRRARRRRRRRARRRRRRRRARARRRRS SS SD | 


Divo: 


1$: 


3$: 


#125252,R1 
#-1,R0 


RO,#152525 
FIS 
127 


00 
;LOAD MULTIPLICAND 
;R1:RO=40000*125252 


;BR IF N BIT ERROR 
;BR IF V BIT ERROR 
;BR IF Z BIT ERROR 


;BR IF C BIT CORRECT 

; INCORRECT CONDITION CODE FOR ‘MUL"’ 
;HIGH ORDER RESULT OK ? 

;BR IF NO 

;LOW ORDER RESULT OK? 

;BR IF YES 

; INCORRECT DATA FOR ‘MUL"’ 


(ARRRSRRARRRARRARARERRAARRARRRARRRRRRRRR RRR RRR RARARASS ES | 


;LOAD LOW ORDER DIVIDEND 
sHIGH ORDER DIVIDEND 
;SET C BIT TO 1 
:R1:RO=177777,125252/2 
;BR IF C BIT ERROR 


BR IF 
BR IF N BIT OK 


; N 
; INCORRECT DONDITION CODE FOR ‘DIV"’ 


;CHECK LOW ORDER RESULT 
;BR IF ERROR 
jg HIGH ORDER RESULT 


> BR OK 
; INCORRECT DATA FOR ‘‘DIV"’ 


SEQ 0046 


- 
| 


re = ee ee ee ee, ee 
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CVKDAD.P11  - 14=JUL=80 16:36 PROGRAM SEQ 0047 
2138 SRRARH HAKATA AA KAA A TE TAKA TATA AeKe eee Ate Kee tee eeAeTeeeet 
2139 “TEST ALL FLOATING INSTRUCTIONS TOGETHER 
5140 045670, 123456 | 
2141 134343,107070 + 032107,065432 & ---enqnnnennnn sens ene ne ne- eee 
ses (135252,125252 - 040616,016161) | 
2144 THE RESULT = 137201,115230 
2145 neato t= aecainestoan a ne rng 
2146 005542 012704 032276 FiS: | MOV #LST “LOAD R4 STACK POINTER 
2147 005546 012744 107070 MOV w107076" = cR4) “LOAD DATA ONTO STACK 
2148 005552 012744 134343 MOV #134343,-(R4) 
2149 005556 612744 065432 MOV #065432,-(R4) 
2150 005562 012744 03210 MOV #032107,-(R4) 
2151 55 012744 123456 MOV #123456, -(R4) 
2152 005572 012744 04567 MOV #045670,-(R4) 
2153 005576 012744 125252 MOV #125252,-(R4) 
2154 5 012744 135252 MOV #135252,-(R4) 
2155 005606 012744 016161 MOV #016161 .-(R4) 
2156 005612 012744 040616 MOV #040616,-(R4) 
2157 005616 000257 ccc 
2158 005620 000264 SEZ :SET Z BIT 
2159 005622 000240 NOP 
2160 005624 075014 FSUB aR :135252,125252-040616, 0161612 14061601 7434 
2161 005626 075034 FDIV.—R4 "045670, 123456/140616,017434=145246.047065 
2162 075024 FMUL sR :032107 .065432*145246, 047065= 137509-106137 
2163 005632 075004 FADD R4 > 134343,107070+137201, 106137=137201,115230 
2164 34 103403 BCS 1$ -BR IF C SET, REPORT ERROR 
g165 005636 102402 BVS 1$ “BR IF V SET. REPORT ERROR 
166 005640 001401 BEQ 1$ “BR IF Z SET. REPORT ERROR 
2167 005642 100401 BM! 2$ “BR IF N SET, DO NEXT TEST 
2168 005644 104126 1$: ERROR 126 “INCORRECT CONDITION CODE AFTER "FADD,FSUB,FMUL,FDIV' 
2169 005646 012437 005724 2$: MOV (RG) +,ANS1 : SAVE FIRST HALF OF THE ANSWER 
2170 005652 012437 005726 MOV (R4)+,ANS2 > SAVE 2ND HALF 
2171 005656 020427 032276 CMP RG, #LSTAD * CHECK Re STACK POINTER 
2172 005662 001401 BEQ 35 “BR IF CORRECT 
2173 005664 104127 ERROR 127 "INCORRECT STACK POINTER VALUE 
2174 005666 022737 137201 005724 3$: CMP #137201,ANS1 -: TEST 1ST HALF OF RESULT 
2175 005674 001401 BEQ 4$ “BR IF CORRECT 
2176 005676 104127 ERROR 127 “INCORRECT DATA FROM A "'FIS INSTRUCTION'’ 
2177 005700 022737 115230 005726 4$: CMP #115230, ANS2 : TEST 2ND HALF OF RESULT 
2178 005706 001401 BEQ 5$ “BR IF CORRECT 
2179 005710 104127 ERROR 127 “INCORRECT DATA FORM A ‘'FIS INSTRUCTION" 
2180 005712 005337 005730 S$: DEC EISCNT “FINISHED THE # OF EXECUTION LOOPS ? 
2181 005716 001405 BEQ E1SDON “BR IF FINISHED 
2182 005720 000137 005106 JMP ASH1 “LOOP UNTIL DONE 
2183 005724 000000 ANS1: 0 
2184 005726 000000 ANS2: 0 
gi83 730 000000 EISCNT: 0 
2187 005732 004737 012624 EISDON: JSR PC, CHKCON “CHECK IF CONSOLE PRESENT 
2188 005736 000410 BR NOEIS "RET HERE IF NOT 
2189 005740 032777 010000 173172 BIT #B1T12,aSwR “SKIP TYPEOUT IF NOT SET 
2190 005746 001404 BEQ NOE IS “BR IF CLEARED 
2191 005750 104401 022542 TYPE ,FISEIS SREPORT EIS/FIS TESTING COMPLETED 
2192 005754 104401 022574 TYPE ,DUN “REPORT "DON 
2193 005760 NOE IS: :TAG TO BYPASS THE EIS/FIS TEST SECTION 


———— oe meee et 


ena ) 6 
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CVKDAD.P11 14-JUL-80 16:36 PROGRAM SEQ 0048 
2194 , 
2195 SERRA ARAAREAAA AAT AA TATA A AAA HA TERE AAA TAA Te eee eee tee ee tee ee eee 
2196 ; START LINE CLOCK 
2197 S RARER RAREAEAAEEREAATAT ATE T TATA AAA AA AREA AREA AAe Tee HATA ee 
2198 
2199 005760 032737 000200 001246 CLKTST: BIT #B1T7,SDEVM ;DROP TEST? 
2200 005766 001034 BNE PRTST BR IF YES 
2201 005770 012737 014174 000100 MOV WINTSRV,CLKVEC ;SETUP VECTOR AREA 
2202 005776 012737 000200 000102 MOV #200,CLKVEC#2 ;LOCKOUT OTHER INTER. 
2203 006004 005037 014202 CLR INTFLG 
sone 006010 052737 000100 177546 BIS WIE,CLK ;SET CLOCK LOOSE! 
2206 6 004537 013340 JSR RS, TIMER ;SEE IF INTFLG GOES TO 100 
2207 006022 014202 INTFLG 
2208 006024 000100 
2209 006026 104032 ERROR 32 ;CLK NOT RESPONDING 
gel? 006030 000415 BR PRTST 
2212 006032 004737 012624 JSR PC ,CHKCON s CHECK IF CONSOLE PRESENT 
2213 006036 000410 BR PRIST RET HERE IF NOT 
2214 006040 032777 010000 173072 BIT #BIT12,aSWR SKIP TYPEOUT IF NOT SET 
2215 006046 001404 BEQ PRTST 
2216 006050 104401 021676 TYPE —_, CLOCK 
2217 006054 104401 022467 TYPE »RUN 
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012737 


052737 
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100000 
012616 
003520 
020014 
003534 


014204 
000200 


014332 
000015 


000100 


013340 


012620 
000100 
012624 
010000 
021544 
021555 


022467 
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003534 
003534 
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SEQ 0049 


SF RRAAAAAAAAARAEAAAAEEAARAER TEAR AAR AAA ERAREAAAKAAAEAAAA KARATE AAAS 


START PRINTER 


SF RRAAAAAAAAARAEAAAAAAAEAA AEA AAAAEAAAAARAAAAAAREARAATAAHARAAAERE TEES 


PRTST: 


3$: 


4$: 


#B81T15,S0EVM 
SMTST 


PRPRES 
SMTST 


PRBAUD ,HOLD 


#<PRT! CHAR8&>,HOLD 


HOLD ,PARAM 

#PRSRV PRVEC 

#200,PRVEC+2 

LINCT 

#CR,PRCHR 

W1E,PRS 

R5, TIMER 

33 

SMTST 

PRPORT 

3$ 

WIE, PRS 

PC ,CHKCON 

SMTST 

#B1T12,aSuR 
1ST 


: DROP TEST? 


R IF YES 
PRINTER THERE? 
BR IF NO 


; SETUP PARAM REG 


sELSE SETUP PRINTER VECTOR 
;LOCKOUT INTERR 


— LINE Ay. 

;CHAR TO BE PRINTED 

:"DEL* (177) CAN ae USED TO CLR PRINTER BUFF 
:SET PRINTER LOOSE! 

:WILL PRINT CONTINUOUS 132 gory LINES 

;EA BEGINNING WITH ASCII 40 THRU 176 


:SEE IF LINCT GOES TO 5 


;PRINTER NOT RESPONDING 


;EXT LOOPBACK MODE? 
:BR IF NO 
;ELSE SHUT DOWN PRINTER 


;CHECK IF CONSOLE PRESENT 
:RET HERE IF NOT 
;SKIP TYPEOUT IF NOT SET 


;EXT LOOPBACK MODE? 
BR IF NO 


CVKDAD 
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ANISSRISEALAB 


MIMITIPIPOIPIPO POPU POPU PU PUP Peropororeror re rery 
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002000 
006562 
001210 
001176 


015024 


004000 
000010 
014000 
007026 
000026 


000020 
000026 


013632 


176622 
014734 


013514 


001246 


000001 


003534 


176624 
001246 
176624 
176622 
176620 


176624 
176626 


014734 
000026 
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PROGRAM 


SEQ 0050 


FERRARA AARAAAAAAEARAAAAAEAAE AERA AARAEAAAAAAAAARAARAARAAAAAAEA AAAS 


START SYNC COMM PORT 


FRA RAREAARAARAAAAEAAAAERERAAAA AERA RAAEEAAAAAAARAAAAAHERAAAARERETAE 


SMTST: 


8$: 


9$: 


1$: 


4$: 


BIT #BI1T10,$D0EVM :DROP TEST? 
BEQ ° F NO 
JMP AMTST sELSE JUMP TEST 
CMPB SENV,#1 sUNDER APT? 
BNE 9G ;BR IF NO 
TST SPASS sELSE 1°ST PASS? 
BNE AMTST sEXIT TEST IF NO 
CLR LSTCHR sLAST CHAR FLAG FOR XMIT 
INC SMFLG :SET SYNC MODEM FLAG 
MOV SMBAUD , HOLD 
BIS #SMOD , HOLD 
MOV HOLD, PARAM ;SET PARAM REG 
BIS #MAR, SMXC :MASTER RESET 
BIS #MACLK, SMXC ;MAINT CLOCK — 
BIT #BIT3,SDEVM sEXT LOOPBACK? 
BEQ 1$ ;BR IF Y 
BIS #<MM'MCLK>, SMXC :ELSE SET MAINT MODE FOR INT. LOOPBACK 
MOV #<CHRB'ODDPAR!026>,SMPAR -SETUP SYNC PARAMETER REGISTER 
BIS #<RTS'DTR!SRSYN>,SMRC ;SET REQ TO SEND, DATA TERM RDY 
:® SEARCH SYNC 
BIS #SEND, SMXC sENABLE XMIT SEND 
MOV #026,SMXB :XMIT SYNC CHAR 
JSR RS, TIMER2 sWAIT FOR DONE 
SMRC 
DONE 

ERROR 45 :NO DONE 
BR 5$ sEXIT 
MOV SMRB,COMHLD ;READ WORD 
CMP COMHLD , #026 ;IS IT SYNC CHAR? 
BEQ 4$ ;BR IF YES 
ERROR 6 ;DID NOT REC SYNC CHAR 
BR 5$ EXIT 
JSR RS,SETVEC ;SETUP VECTOR AREA 

SMRVEC 

SMRSRV 

SMXSRV 


CVKDAD 
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005037 


000027 
000100 
000100 


015340 


012624 


000400 
010000 


021515 
022574 
003514 


~ 
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PROGRAM SEQ 0051 


014732 MOV #027, COMCHR ;1°ST CHAR TO BE XMITTED 
176620 BIS #1E, SMRC :SET SYNC MODEM LOOSE! 
176624 BIS WIE,SMXC 
JSR R5,TIMER © ;SEE IF COMCHR GOES TO ALL 1° (DONE) 
COMCHR 
177777 
ERROR 37 ;SYNC COMM NOT RESPONDING 
NOP 
5$: JSR PC ,CHKCON ;CHECK IF CONSOLE PRESENT 
BR 2$ ;RET HERE IF NOT 
176624 MOV #MR ,SMXC :MASTER RESET 
172374 BIT #B1T12,aSWR ;D0 hi oe A IF SET 
BEQ 2$ EXIT IF 
. TYPE » 9COM 
TYPE , DUN 
2$: CLR SMFLG ;CLEAR FLAG 


CVKDAD 
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004000 
003524 
000010 
030036 
030034 
003534 
000006 


013314 


014732 


000100 
013340 


012624 
010000 


021530 
022467 


001246 
003534 
001246 
003534 
003534 


177420 
176610 


014734 
176610 
176614 


172206 
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PROGRAM 


FE RAAAAAAAAAAAAAAAAAA AAA RAAAAAAAAAAAARAAAARAAAAAAARARAAAAAAAAAAA EE 


START ASYNC COMM PORT 


SF RRARAAAARERAAAAAAAAAEARAERAAAAAEAAAAAAAAAAAAAAAEAAAARAKAAAAAAAAA ATE 


AMTST: 


sEXT LOOPBACK? 
:BR IF YES 

; INT LOOPBACK 
;EXT LOOPBACK 


:SET PARAM REG 
;SET REQ TO SEND & DATA TERM RDY 


;SETUP VECTOR AREA 


;CHAR TO BE XMITTED 
;CLR OUT ANY PREVIOUS STORED WORD 
;SET ASYNC MODEM LOOSE: 


;SEE IF COMCHR GOES TO 377 


;ASYNC COMM NOT RESPONDING 


;CHECK IF CONSOLE PRESENT 
RET HERE IF NOT 
;SKIP TYPEOUT IF NOT SET 


BIT #B1T11,$DEVM § ;DROP TEST? 
BNE CLITST “BR IF YES 
MOV AMBAUD , HOLD 
BIT #B1T3,SDEVM 
BIS #<AMOD 'OPAR! CHAR8! MAINT>, HOLD 
BIS #<AMOD !OPAR! CHAR8>, HOLD 
MOV HOLD, PARAM 
BIS #<RTS'DTR>, AMRC 
JSR RS, SETVEC 

AMRVEC 

AMRSRV 

AMXSRV 
CLR COMCHR 
MOV AMRB , COMHLD 
BIS #1E, AMRC 
BIS #1E, AMXC 

S RS, TIMER 
COMCHR 
377 

ERROR 40 
R CLITST 
JSR PC, CHKCON 

BR CLITST 
BIT #B1T12,aSWR 
BEQ CLITST 
TYPE  ,ACOM 
TYPE = ,RUN 


ee ee 


SEQ 0052 


= ~~ = 
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012614 
007506 
004000 


000006 
000006 


010000 
003526 
000001 
000016 
000014 


003534 
013314 


014432 


000100 
013340 


012624 
010000 


021462 
022467 


001246 
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003534 
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PROGRAM 


SF RAARAAARARAAAAAAAAAAEAAAAAAAAAAAAAAKRAKAARARAKA AAR AAA AAR AAA TAS 


; START CLUSTER TERMINAL #1 


SF RAAAAAAARAAAAAAAAAAAAEREAAAAAAEARARARAAERAAARARAAAAAAHRERARAAAAAEES 


CLITST: TST CLPRES OPTION PRESENT? 
BNE ;BR IF YES 
JMP DXTSTO 

1$: BIT #4000, SDEVM ;DROP ASYNC? 
BEQ 4$ : F NO 


BIC #<RTS'DTR>,AMRC :MUST BE TOGGLED 
BIS #<RTS'DTR>.AMRC :PRIME IT 


4$: BIT #B1T12,$DEVM :DROP TEST? 
CL2TST :BR IF YES 
MOV C1BAUD ,HOLD 
BIT #B1T0,SDEVM :TERM #1 SET FOR EXT LOOPBACK? 
% sBR IF YES 
BIS #<CT1'CHARB'MAINT>,HOLD ; INT LOOPBACK 


BR $ 
2$: BIS #<CT1!CHAR8>,HOLD sEXT LOOPBACK 
3$: MOV HOLD ,PARAM ;SET PARAM REG 
JS R5,SETVEC ;SETUP INTERR VECTORS 
TKIVEC 
TKISRV 
TPISRV 


;CHAR TO BE XMITTED 
;READ CHAR (CLEAR STALE DATA) 
;SET CLUSTER TERM #1 LOOSE! 


TICHR 
MOV TK1B, TIHLD 
BIS #WIE,TKIS 
BIS WIE,TPIS 


RS, TIMER ;SEE IF TICHR GOES TO 377 
A 
ERROR 34 ;CLUSTER TERM 1 NOT RESPONDING 
BR CL2TST 
JSR PC ,CHKCON ;CHECK IF CONSOLE PRESENT 
BR CL2eTST ;RET HERE IF NOT 
BIT #BIT12,aSWR ;SKIP TYPEOUT IF NOT SET 
BEQ CL2TST 
TYPE »CLTI 


TYPE »RUN 


SEQ 0053 
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020000 
003530 
000002 
050016 
050014 


003534 
013314 


014532 


000100 
013340 


012624 
010000 


021473 
022467 


001246 
003534 
001246 
003534 
003534 
177420 


171620 
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MmARBARABAAAAAAAALAEARLARARAAALASAARARARRRARRRRARRARARARRAR ADA D SD SD SD OS | 


: START CLUSTER TERMINAL #2 


SRARAAAARAAAAAACERAAAAAAAAAAAAERAEAAAAAAAAREARARAAAAEAAAAAAREAARARAEES 


CL2TST: BIT 
BNE 


MOV COBAUD. HOLD 
BIT #B1T1,$DEVM 
BEQ 1 “BR 
BIS * coommegeans, oF : 
1$: BIS #<CT2'CHARB>, HOLD 
2$: MOV HOLD, PARAM 
JSR RS, SETVEC 
TK2VEC 
TK2SRV 
TP2SRV 
CLR T2CHR 
MOV TK2B, T2HLD 
BIS WIE, TK2S 
BIS #IE,TP2S 
RS, TIMER 
T2CHR 
77 
ERROR 35 
BR CL3TST 
JSR PC, CHKCON 
BR CL3TST 
BIT wB1TI2, aSwR 
BEQ CL3TS 
TYPE niet 
TYPE RUN 


te et , SDEVM 


C 5 
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;TERM #2 SET FOR EXT LOOPBACK? 
F YES 


AM REG 
: SETUP INTERR VECTORS 


;CHAR TO BE XMITTED 
;READ CHAR (CLEAR STALE DATA) 
;SET CLUSTER TERM #2 LOOSE! 


;SEE IF T2CHR GOES TO 377 
;CLUSTER TERM 2 NOT RESPONDING 


;CHECK IF CONSOLE PRESENT 
; IF NOT 
;SKIP TYPEOUT IF NOT SET 


SEQ 0054 


st 





Se at ae S 
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CVKDAD.P11 14-JUL-80 16:36 PROGRAM SEQ 0055 
2451 
2452 SRERRAREAARAARHEARAAAEAAAA TEA AAAE AKA eee AeA eee eee KereeTeeeteet 
2453 START CLUSTER TERMINAL #3 
tee SRM AAAAAAAEAAEAAAARARAAAAAAAATAAAAAAAAHAAAAARAAKAHAARARTATA TAS 
245 . ; 
2456 007332 032737 040000 001246 CL3TST: BIT #B1T14,$DEVM ;DROP TEST? 
2457 007340 001062 BNE DXTSTO BR IF YES 
Stee 007342 013737 003532 003534 MOV C3BAUD ,HOLD 
2460 007350 032737 000004 001246 BIT #B1T2,$DEVM ; TERM 7 SET FOR EXT LOOPBACK? 
2461 007356 001404 BEQ IF Y 
2462 007360 052737 060016 003534 BIS #<CTS3!CHARB!MAINT>,HOLD ; : INT LOOPBACK 
2465 7 000403 BR 
ree 007370 052737 060014 003534 1$ BIS #<CT3!CHAR8>,HOLD ;EXT LOOPBACK 
2466 0073576 015737 003534 177420 2%: MOV HOLD ,PARAM ;SET PARAM REG 
2467 74 04537 013314 JSR R5,SETVEC ;SETUP INTERR VECTORS 
2468 007410 000320 TK3 
2469 007412 014554 TKSSRV 
ty 007414 014536 TP3SRV 
2472 007416 005037 014632 CLR T3CHR ;CHAR TO BE XMITTED 
2473 007422 013737 176522 014634 MOV TK3B,T3HLD READ CHAR (CLEAR STALE DATA) 
2474 007430 052737 900100 176520 BIS WIE,TK3S ;SET CLUSTER TERM #3 LOOSE! 
site 0074 052737 000100 176524 BIS #IE,TP5S 
2477 007444 004537 013340 S R5,TIMER ;SEE IF T3CHR GOES TO 377 
478 007450 014632 T3CHR 
479 007452 000377 377 
2480 007454 104036 ERROR 36 ;CLUSTER TERM 3 NOT RESPONDING 
et 007456 000413 BR DXTSTO 
2483 007460 004737 012624 JSR PC ,CHKCON ;CHECK IF CONSOLE PRESENT 
2484 007464 000410 BR DXTSTO ;RET HERE IF NOT 
2485 0074 032777 010000 171444 BIT #BI1T12,aSWR ;SKIP TYPEOUT IF NOT SET 
2486 007474 001404 BEQ DXTSTO 
2487 007476 104401 021504 TYPE »CLT3 
2488 007502 104401 022467 TYPE »RUN 
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003476 
000040 


013632 


000011 
013632 


177170 


000100 


esate 
177172 
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177170 
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SEQ 0056 


WOR RRRRARARESLALASLARSLASLARARALALARA RE RRRARRRRAR SARA ARR R ARRAS AR SDSS SD | 


: FILL & EMPTY BUFFER TEST: 


DRIVE 0 


:A FILL BUFFER COMMAND IS ISSUED WITH ALTERNATING WORDS OF ALL O'S & ALL 1°S. 
:AN EMPTY BUFFER COMMAND IS ISSUED TO FILL ‘DOBUF' 

SUPON COMPLETION, DOBUF I$ CHECKED FOR ALTERNATING WORDS OF op O'S &@ ALL 1°S. 
Sana IN THIS TEST MAY INDICATE CABLE CROSS-TALK INTERFERENC 


 eaehalasanenouanucsnsbassbasankestibaansinmamebennansanastill 


DXTSTO: CLR DXTST 

BIT #B1T5,SDEVM 

BNE DXTSTI 

JSR RS, TIMER2 
RXCS 
DONE 

ERROR 75 

BR 8$ 

MOV #INITAL,RXCS 

JSR RS, TIMER2 
RXCS 
DONE 

ERROR 114 

BR 8$ 

TST RXCS 

BPL 6$ 

ERROR 130 

6$: MOV #100,R0 

CLR RI 

MOV #F BUF ,RXCS 

MOV R1,RXDB 

COM R1 

DEC RO 

BNE 1$ 

JSR RS, TIMERZ 
RXCS 
DONE 

ERROR 115 

BR 8S 


;0 = DXTSTO 
;DROP BUFFER TESTS? 
BR IF YES 


;WAIT FOR DISK DONE 
:NO DONE 

sEXIT 

-DO AN INITIALIZE COMMAND 
sWAIT FOR DONE 


;NO DONE 


; ERROR? 

;BR IF NO 

: INIT CMD ERROR 
:FILL BUFFER 

sWORD CT 

; WORD 

; ISSUE FILL BUFF COMMAND 
; COMPLEMENT WORD 
:DONE ALL 100 WORDS? 
;BR IF NO 

:WAIT FOR DISK DONE 
;NO DONE 

EXIT 


mm mm ee er ee eee 
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Sus SSSSS= 


000405 
000137 
000000 


000000 
177777 
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177172 


013632 


002604 


007742 


007742 
007742 
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011706 


177170 
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3$: 


4$: 


es 


, 
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#100,R0 : WORD a 
#DOBUF ,R1 “BUFFER 
WEBUF ,RXCS ; ISSUE cMPTY BUFF COMMAND 
RXDB,(R1)¢ :$T ORE WORD 
RO ; DONE? 
2$ “BR IF NO 
RS, TIMER2 sWAIT FOR OISK DONE 
116 ;NO DONE 
8$ sEXIT 
;CHECK IT 
#DOBUF ,R1 + Ad ADDR 
(R1)+*,EBHLD TORE IT 
4% ‘oR IF ZERO 
76 ;WORD NOT ALL ZEROS 
(R1)+,EBHLD 
EBHLD,#=-1 sALL 1°S? 
5$ sBR IF YES 
77 :;WORD NOT ALL ONES 
ST uatisingai eT wes DOBUF F ? 
DxTST1 :60 TO _- TST 
EOP sEXIT ALL DISK TESTS 


FOR ERRCR REPORT 
FOR ERROR REPORT 
FOR ERROR REPORT 


: STORAGE 
sEXPECT O°S 
sEXPECT 1°S 


SEQ 0057 
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012737 
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012737 
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004737 
104041 
000240 
032737 
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012737 
0127357 
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002566 
003036 


002560 


000001 
003030 


000001 
000400 
015126 
000200 
003512 
015632 
015244 
003500 
000100 
013424 


001000 


003476 


002570 


003040 
001246 


000264 
000266 


015226 


015226 
177170 


001246 
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“MERAH Ke KeKeKeHeeeRReeeeeeeeaeeeeeeetaererereeesse 


START DXO & DX1 DATA PATTERN 


“EACH SECTOR IS FILLED WITH ITS TRACK & SECTOR ADDRESS AS DATA. 


:DX1 WILL ALWAYS HAVE ITS DATA BIT 15 


SET TO mine eet TA iy FROM Dx0. 


;EACH TRACK IS READ & CHECKED BEFORE GOING TO THE 
;DATA IS ot ON ALTERANTE zo eons ys AVOID LATENCY TIMES. 


;1E: SECTORS 1 1 FOLL 
SHARD ERRORS ARE THOSE ERRORS 


ED BY 2,4,6...32. 
AFTER $4" MORE RETRIES. 


;1'ST PASS PERFORMED ON TRACKS 0-4, 40-44, 72-76(10) 


; SUBSEQUENT PASSES ON ALL TRACKS 


POTTTITITITITITITITIL ITLL ITLL L LITT Titi ti iiii iii 


DXTST1: MOV #1 ,O0XTST 
CLR DOTRK 
CLR DITRK 
12$: CLR DOPAT 
CLR DOERR 
CLR DOCERR 
MOV #1 ,DOSEC 
CLR DIPAT 
CLR DIERR 
CLR DICERR 
MOV #1 ,D1SEC 
BIT #B1T8,SDEVM 
BNE 2$ 
MOV MRXSRV,RXVEC 
MOV #200 ,RXVEC+2 
1$: TST COMP2 
BEQ 10$ 
MOV #DORSEC ,DODISP 
BR 7$ 
10$: MOV #D0F BUF ,DODISP 
7$: CLR FIN 
BIS WIE, RXCS 
JSR PC, TIMDO 
ERROR 41 
NOP 
2$: BIT #B119,SDEVM 
BNE 4$ 
MOV #RXSRV RXVEC 
MOV #200, RXVEC#2 


;1 = DATA PATT TESTS 


;STARTING TRACK 


; INIT DXO FLAGS 


> INIT DX1 FLAGS 


;DROP Dx0O TESTS? 
;BR IF YES 


;SETUP VECTOR AREA 


;DOING COMPAT PASS 2? 


;BR IF NO 
;ELSE DO READS ONLY 


:DO0 NORMAL TESTING 
:DO DX1 WHEN SET 
sLET INTERRUPTS LOOSE! 


;DX0 NOT GETTING TRACK DONE FLAG 


;DROP DX1 TESTS? 
R IF YES 


;SETUP VECTOR AREA 


ec me ee «ee me a = we we ee es ree 


SEQ 0058 
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003512 
017470 
017102 
003500 
000120 


013524 


000400 
002560 
013522 


001000 
003030 
013616 


003510 
011706 
001176 
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4$: 


5$: 


6$: 


13$: 


14$. 


H 5 
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COMP2 


11$ 
#DIRSEC,DIDISP 
8$ 


| * meatal 
M<IE!DX1>,RXCS 


PC,TIMD1 
42 


#B1T8,$DEVM 
5$ 

DOPAT 

5$ 

DOTMO 

1$ 

7$ 

> tahitian 
DIPAT 

6$ 

D1TMO 

3$ 

8$ 

COMP1 

13$ 

EOP 


SPASS 
DXTST2 


MAXTRK ,#4 
14% 


#40. ,DOTRK 

#40. ,D1TRK 

#44, ,MAXTRK 
12$ 


MAXTRK #44. 
DXTST2 

#72. ,.DOTRK 

#72. ,D1TRK 

#76. ,MAXTRK 
12% 


47 PAGE 60 


SEQ 0059 


OR IPN COMPAT PASS 2? 
ELSE D0 READ ONLY 
;b0 +o. TESTING 


;GO BACK TO DXO WHEN SET 
;LET INTERRUPTS LOOSE! 


;DX1 NOT GETTING TRACK DONE FLAG 


:DROP DXx0? 

“BR IF YES 

ae oO ALL DONE? 
; TIMEOUT? 

“BR IF NO 

“ELSE CONT LAST COMMAND 
:DROP Dx1? 

;BR IF YES 

sELSE IS DX1 ALL DONE? 
“BR IF YES 

; TIMEOUT? 

:BR IF NO 

ELSE CONT LAST COMMAND 
:DOING COMPAT PASS 1? 
;BR IF NO 

sELSE ALL DONE 


;1°ST PASS? 
;BR IF NO 


he eo 5 OUTER TRACKS? 
;ELSE SETUP FOR 5 MIDDLE TRKS 
;GO DO IT! 

oe Be DID 5 MIDDLE TRACKS? 


;BR IF NO, MUST BE ALL DONE 
sELSE SETUP FOR 5 INNER TRKS 


;D0 IT! 


— ee eo ae a ee ee - ee -  - —— 
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012737 
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004737 
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000002 
001176 


000004 
002564 
002574 
002562 
003034 
003044 
003032 


000400 


013074 


002566 
013074 


002570 
014006 


015632 


003500 
000100 


013424 


003476 


003502 


001246 


013076 


015076 


015226 
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SF RERAAAAAAAAAAAEAAAAAATEHEAAAETAAAAAAAARAAARATARAAAKAT AAA AAAS 


; START DXO & DX1 RANDOM SEEKS 


;RANDOM SEEKS ARE PERFORMED ON EACH DISK. 

:DATA IS READ & VERIFIED TO BE CORRECT FROM THE a TEST. 
sHARD ERRORS ARE THOSE ERRORS AFTER 10 MORE RETRIES 

;1°ST PASS PERFORMS 20 RANDOM SEEKS ON 1°ST 5 TRACKS 

: SUBSEQUENT PASSES PERFORMS 500 RANDOM SEEKS BETWEEN ALL TRACKS. 


SRAAAAAAARERAAAAEAAAAAATEAAAATAAEAAEAAAAAAAAAARAAAAAAAAAAA ARATE 


CxTST2: wt 


7$: CLR 


#2,0XTST 
SPASS 


#4 ,MAXTRK 
DOERR 
DOCERR 
DOCNT 
DIERR 
DICERR 
DICNT 


#B1T8,SDEVM 
2$ 


LOLIM 
MAXTRK,HILIM 
PC ,RAND 
R1,DOTRK 
LOLIM 
#32,HILIM 

PC ,RAND 
R1,DOSEC 


R5,CKOBAD 

1$ 

#DORSEC ,DODISP 
FIN 

WIE ,RXCS 


PC, TIMDO 
117 


;2 = RANDOM SEEK TESTS 
;1°ST PASS? 


;BR IF NO 
;ELSE JUST DO TRKS 0-4 
; INIT DXO FLAGS 


; INIT DX1 FLAGS 


sDROP DXO TESTS? 
:BR IF YES 


;GET RANDOM TRACK # 


;GET RANDOM SECTOR # 


;SEE IF THIS TRK/SEC FLAGGED BAD 
;BR IF RETURN HERE 


;SET DISPATCH TABLE TO POINT TO 
;READ SECTOR HANDLER. 

;D0 DX1 WHEN SET 

;LET INTERRUPTS LOOSE! 


;DX0 NOT GETTING DONE FLAG 


SEQ 9060 
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001000 


013074 


003036 
013074 


003040 
014120 


017470 


003500 
000120 


013524 


000400 


002562 


001000 
003032 


003512 
011706 


001246 


013076 
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MACY11 30A(1052) 
PROGRAM 
2$: 


3$: 


4$: 
5$: 


6$: 


J 3 
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#B1T9,$DEVM 
4$ 


LOLIM 

MAXTRK ,HILIM 
PC ,RAND 
R1,D1TRK 
LOLIM 
#32,HILIM 

PC ,RAND 
R1,D1SEC 


R5,CK1BAD 

3$ 
#DIRSEC,DIDISP 
FIN 
M<IE!DX1>,RXCS 
PC,TIMD1 

120 

* acetate 
DOCNT ,MAXSK 

1$ 


* ‘pei 
DICNT ,MAXSK 
3$ 

COMP2 


DXTST3 
EOP 


cm ee ee 


747 PAGE 62 


;DROP DX1 TESTS? 
R IF YES 


;GET RANDOM TRACK # 


;GET RANDOM SECTOR @ 


;SEE IF THIS TRK/SEC FLAGGED BAD 
;BR IF RETURN HERE 


:SET DISPATCH TABLE TO POINI TO 
;READ SECTOR HANDLER 

;GO BACK TO Dx0 WHEN’ SET 

;LET INTERRUPTS LOOSE! 


:DX1 NOT GETTING DONE FLAG 


;DROP Dx0? 
>BR IF YES 


;DID ALL SEEKS? 
R IF NO 


;DROP DX1? 


;BR IF YES 
:DID ALL SEEKS? 
BR IF NO 


;DOING COMPAT PASS 2? 
;BR IF NO 
;ELSE ALL DONE 


ewe 


———— 


sanad 
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SEQ 0062 


SERRA ARAAAAAAAAAEAAAARAAEAEAAEARERAARAAAAAAAAAAAAAAAAARAAAEAAAA ENE 


INITIALIZE COMMAND TEST 


: THE INITIALIZE & EMPTY BUFFER COMMAND IS ‘sod TO DXx0. 
DATA IS VERIFIED TO BE THAT OF TRACK 1, SECTOR 
SHARD ERRORS ARE THOSE Nery — 10 MORE RETRIES. 


; "INIT' CANNOT BE ISSUED T 


DX 


2$: 


schaaunhaananarkuhaessseenssnaioneemaenetennenmanaaennid 


TST3: BIT 
BNE 


#B1T8,$DEVM 
DXTST4 


#3,D0XTST 
DOERR 


DOCERR 


#DOINIT,DODISP 


FIN 
WIE,RXCS 
PC, TIMDO 
4 


DXTST4 
RXCS 
1$ 

63 


#ID,RXES 
2$ 


55 


DOERR 
DOCERR 


#1 ,DOTRK 
#1 ,D0SEC 


#DOEBUF ,D0DISP 


FIN 
MIE ,RXCS 
PC,TIMDO 
56 


;DROP DxX0 TESTS? 
;BR IF YES 


;3 = INIT TEST 
;FLAGS 


;SET DISPATCH TABLE TO GO TO INIT HANDLER 
;LET LOOSE 
;DXO0 HUNG ON INITIALIZE COMMAND 


; ERROR? 
BR IF NO 
; INIT COMMAND ERROR 


se ie ves BIT SET? 
: INIT DONE NOT SET 


;EXP TRK & SEC 

;SETUP DISPATCH TABLE T0 
;EMPTY BUFFER & VERIFY DATA 
;LET LOOSE 


:DX0 HUNG ON EMPTY BUFF COMMAND 
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000400 


000004 


000100 


013424 


177170 


002566 
000001 


002564 


000100 
013424 
001000 
000004 
000120 


013524 


177170 


001246 
003476 
015226 
177170 


002570 


001246 


003476 
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177170 


= 
MACY11 30A(1052) O1-DEC-80 09:47 PAGE 64 
PROGRAM 


SF RRRARAREAAAAAARAAAAE RATA AAEAEARAAAAAAAAAAAAARAAAAAAAAAAAAT AAA AAT 


“THIS TEST VERIFIES THAT THE RESTORE COMMAND 
“TO DXO & DX1 & THAT NO ERRORS RESULT FROM | 


SERRA RAAEAEEEREAR AEE AAAEEAERAAAAEAAEAAAAAAAAAAAAAARRAAAEAER HE 


RESTORE COMMAND TEST 


DXTST4: BIT 
BNE 


#B1T8,$DEVM ;DROP DXO TESTS? 
2$ ;BR IF YES 


#4 ,DXTST +4 = RESTORE TEST 
#DOREST ,DODISP "SETUP DISPATCH TABLE 


#IE,RXCS 


PC, TIMDO 

> :DX0 HUNG ON RESTORE COMMAND 

RXCS : ERROR? 

1$ ;BR IF NO 

54 :DXO RESTORE COMMAND ERROR 

DOTRK CHK FOR RECORD NOT FOUND (RNF) 

#1,D0SEC SET TRK/SEC. SHOULD NOT MOVE 
LOGIC THINKS ITS ALREADY THERE. 

DOERR 

DOCERR 


FIN 
#DORSEC,DODISP ;SETUP TO READ SECTOR 


#IE,RXCS “LET INTERR LOOSE 

PC, TIMDO 

121 :DX0 HUNG ON READ CMD 
#B1T9,$DEVM -DROP DX1 TESTS? 
DxTST5 “BR IF YES 


#4 ,DXTST -4 = RESTORE TEST 
#DIREST,DIDISP :REPEAT FOR DX1 


#<1E!DX1>,RXCS ;LET INTERR LOOSE 
PC,TIMD1 
DXTSTS 

RXCS ; ERROR? 


3$ :BR IF NO 
74 :DX1 RESTORE CMD ERROR 


;0X1 HUNG ON RESTORE CMD 


ae BE ISSUED 


SEQ 0063 


y 
P11 
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—_— —_2 —s —_ = — 2 —_— 


PoT11-150 EXERCISER 


032737 
001043 
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004737 
104051 
000404 
005737 
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003036 
394 


000120 
013524 


000400 


000005 
002564 
002574 
015244 


003500 
000100 


013424 


017016 


003500 
000100 


013424 


177170 


001246 


003476 


015226 


177170 


015226 
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PROGRAM 


mM 5 
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CLR DITRK :READ TO CHECK FOR RNF 
MOV #1,D1SEC 
CLR DIERR 
CLR DICERR 
CLR FIN 
MOV #DIRSEC,DIDISP ;SETUP TO READ SECTOR 
BIS #<IE'DX1>,RXCS [LET INTERR LOOSE 
JSR PC_TIMD1 
ERROR 12% :DX1 HUNG ON READ CMD 
NOP 
SRR RRA EAERERAERERE AA EAEAEAAAAAARAARAAERAEAAAEAAAARAARERARA TREE 
; WRITE SECTOR WITH DELETED DATA MARK TEST 


;THIS TEST VERIFIES THAT THE WRITE DELETED DATA COMMAND CAN BE ISSUED 


THAT THE ‘DELETED DATA* BIT 5 


:MARD ERRORS ARE THOSE ERRORS AFTER 10 MORE RETRIES. 


SRA AAEAARAAAAEAAAEEAAAA EERE EAA AEAAAAAAEAARAARAAAEARAAAEARERAEAREREE 


DXTSTS: BIT 
BNE 


#B1T8,SDEVM ;DROP DXO TESTS? 

DXTST6 ;BR IF YES 

#5 ,DXTST ;5 = WR DEL DATA TEST 
DOERR 

DOCERR 

#DOFBUF ,DODISP ;SETUP DISPATCH TABLE 
FIN 

MIE,RXCS ;LET LOOSE 

PC, TIMDO 

50 ;DX0 HUNG ON WRITE DEL DATA CMD 
DXTST6 

#DOSTAT,DODISP ;SETUP DISPATCH TABLE 
FIN 

#IE,RXCS ;LET LOOSE 

PC, TIMDO 

51 ;DX0 HUNG ON READ STATUS 
DXTST6 

RXCS ; ERROR? 


+4 ;BR IF NO 
57 sREAD STATUS ERROR 


IS SET IN RXCS AFTER READY IS RECV'D. 


SEQ 0064 





CVKDAD 
CVKDAD.P11 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 011526 
2922 011534 
2923 
2924 011536 
7995 011542 
% 011550 
2927 011556 
2928 011564 
2929 
2930 011572 
2931 
2932 011600 
2933 011604 
2934 
2935 011612 
2936 011616 
2937 011620 
2938 
2939 011622 
2940 011630 
2941 011632 
2942 011634 
2943 
2944 011636 
2945 011642 
2946 011644 
2947 
2948 011646 
2949 011652 
2950 
2951 011654 
2952 011660 
2953 011664 
2954 011672 
2955 0117 
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000400 


011704 


046401 


017034 


003500 
000100 


0613424 


000002 


177170 


011704 


011704 


177170 


177172 


N 5 
MACY11 350A(1052) O1-DEC-80 09:47 PAGE 66 
PROGRAM 


5 LRRARERAEARERAAAEAEARAEREE AA AEAAAEARARAARAAAAAAAAEKAORAERAARAAAERES 


; INVALID ADDRESS TESTS 


“A WRITE SECTOR COMMAND IS ISSUED TO INVALID TRACK 115(8) 
“® RXCS 1S CHECKED FOR THE INVALID ADDR BIT 
“THE ABOVE IS REPEATED FOR INVALID SECTOR 33( 


FERRARA ERAAREEAERERERAAAAEAERAAARAAAAARAAAEARAAEARAREAAEREERESE 


DXTST6: BIT #B1T8,SDEVM ;DROP DXO TESTS? 
BNE 4$ ;BR IF YES 


CLR INVCT 
MOV #6, DXTST 
MOV #115, DOTRK 
#1 ,DOSEC 
MOV #46401, RXSA 
1$: MOV #DOINV,DODISP 


;6 = INV ADDR TESTS 


; INVALID TRACK 
;SETUP DISPATCH TABLE 


FIN 
BIS #IE,RXCS 
JSR PC, TIMDO 
60 


;LET LOOSE 


ERROR ;DX0 HUNG ON INVALID ADDR 

R EOP 

BIT #INVADR,RXES ; INV ADDR BIT SET? 

BNE 2$ ;BR IF YES 

ERROR 4 ; INVALID ADDR BIT NOT SET 
2$: TST ‘3 S$ RXCS ;ERROR BIT SET? 

BM! 3$ ;BR IF YES 

ERROR 62 ;ERROR BIT NOT SET 
3$: TST _ INVCT ;DID WE JUST DO INV SECTOR? 

BNE 4$ ;BR IF YES...DONE 

INC INVCT 

CLR DOTRK 


MOV #33, D0SEC 
MOV + Raas ; INVALID SECTOR 


“REPEAT FOR INVALID SECTOR 


BR 
4$: BR .*4 
INVCT: 0O ;0 = DOING INVALID TRACK 


;1 = DOING INVALID SECTOR 


ta}, BE SET AFTER RDY. 


SEQ 0065 
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PROGRAM 


CVKDAD.P11 14-JUL-80 16:36 . SEQ 0066 
$306 : SRRARAAAAAAAAEAAAAREAAAAAEAAAAHAAAAAAAARAAAAAAAAAAAAAAEAAARERAAATE 
296 ; END OF PASS 
444 ; SRRAAAAAAAAAARAAAEAAAEAAAAAAAAHAAAAAATAAAAAARAEARAARAAAAAARERAAEES 
2966 011706 005237 001176 EOP: INC SPASS PASS CTR 
2967 01171 005037 001200 CLR SDEVCT ;CLEAR SO DONT GET NEG NOS GR APT WILL BARF 
2968 011716 004737 012624 JSR PC,CHKCON sCHECK IF CONSOLE PRESENT 
2969 011722 00043 BR 3% sRET HERE IF NOT 
2970 011724 104401 022633 TYPE ENDPAS 
2971 011730 013746 001176 MOV $PASS,-(SP) :;SAVE SPASS FOR TYPEOUT 
344 011734 104405 TYPDS ::;G0 TYPE=-DECIMAL ASCII WITH SIGN 
2974 011736 401 022650 TYPE MSGI 
2975 011742 013746 031432 MOV TERR,=(SP) ;;SAVE TERR FOR TYPEOUT 
gre 011746 104405 TYPDS 3:60 TYPE--DECIMAL ASCII WITH SIGN 
2978 011750 104401 022677 TYPE »MSG2 
2979 011754 013746 031434 MOV TSERR,=-(SP) ;;SAVE TSERR FOR TYPEOUT 
oes 011760 104405 TYPDS ::G0 TYPE=--DECIMAL ASCII WITH SIGN 
2982 011762 104401 022614 TYPE » SERIAL ;SHOW SERIAL # 
<oer 011766. 104401 030464 TYPE »STTYIN 
2985 011772 104401 022733 TYPE »MSG3 
2986 011776 013746 031436 MOV PERR,=-(SP) ;;SAVE PERR FOR TYPEOUT 
444 012002 104405 | TYPDS ::;G0 TYPE--DECIMAL ASCII WITH SIGN 
2989 bison 104401 022767 TYPE »MSG4 
2990 012010 013746 031440 MOV PSERR,-(SP) > :;SAVE PSERR FOR TYPEOUT 
2991 012014 104405 TYPDS ::G0 TYPE--DECIMAL ASCII WITH SIGN 

012016 104401 012102 TYPE »NULL s;NULL CHAR 
012022 012737 000114 003502 3$: MOV #114 ,MAXTRK sFOR ALL SUBSEQUENT PASSES 
2994 012030 005737 003510 TST COMP 1 
012034 001006 BNE 2$ 
2996 012036 005737 003512 TST COMP2 
012042 001003 BNE 
4 012044 012737 000764 003504 MOV #500. ,MAXSK :SET ONLY IF NOT COMPATABLILTY TESTS 
$300 012052 005737 003510 23: TST COMP 1 sCOMPAT PASS 1? 
3001 012056 001407 BEQ >BR IF NO 
3002 012060 104401 023216 TYPE , COMPAT ;DONE MSG 
3003 012064 000000 HALT 
3004 012066 005037 003510 CLR COMP 1 
3005 012072 005237 003512 INC COMP2 
sone 012076 000137 004364 1$: JMP LooP sREPEAT 
3008 012102 377 377 000 NULL: BYTE -1,-1,0 sNULL CHAR STRING 
3009 412106 EVEN 





S 


on 
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PROGRAM 


CVKDAD.P11 14-JUL-80 16:36 SEQ 0067 
3011 
3012 SF RRRAKARARAAAAAATERAAARATAHAETAAEKeAAEKeTeKA Ae Ke eee eetereT Tee eee 
3015 sSYSTEM SIZER SUBROUTINE : 
tis S RRRRERRERRARERARAKEHAAEERAAAAAAEAAAAEKEKHHAARAKE Hee eeKeee teres 
3016 012106 012737 014174 000004 SIZE: MOV MINTSRV,ERRVEC ;SETUP TIMEOUT TRAP ADDR 
3017 012114 012737 000200 000006 MOV W200, ,ERRVEC+2  ;LOCKOUT INTERR 
3018 012122 012737 014174 000010 MOV MINTSRV,RESVEC ;SETUP RESERVED INST TRAP ADDR 
ah 0121350 012737 000200 000012 MOV #200,RESVEC+2  ;LOCKOUT INTERR 
3021 S RRR RRARAAAAAAARAAAAAAKEAAAATEAAAAAAAARAAARAREKEAe Kee HATA AAA Tee 
3022 s20UTINE TO SIZE THE AMOUNT OF MEMORY 
3023 SRR RARARAARRAARAEEAEAAAAAAAAAAAAAAAAAAAAAARAREAEKEK Eee eT AA Tee 
3024 012136 005037 014202 CLR INTFLG 
3025 012142 012700 003776 | MOV #3776,R0 ;SIZE MEM. START WITH 1K 
3026 012146 005001 CLR R1 :CTR, 1=1K, 2=2K, ETC 
3027 012150 005710 1$: TST (RO) 
3028 012152 005737 014202 TST INTFLG ;GOT TIMEOUT INTERR? 
3029 012156 001007 BNE 2$ ;BR IF YES 
3030 012160 005201 INC R1 
3031 012162 020027 167776 CMP RO ,#167776 ;DONE 32K MEM? 
3032 012166 001405 BEQ 3$ ;BR IF YES, ALL DONE 
3033 012170 062700 004000 ADD #4000,R0 ;GO TO NEXT 1K 
$034 012174 000765 BR 1$ 
3036 012176 162700 004000 2$: SUB #4000,R0 ;GO BACK TO LAST VALID 1K 
3037 012202 010037 012622 3$: MOV RO ,MAXMEM — G SAV 
3038 012206 010146 MOV R1,-(SP) ;;SAVE R1 FOR TYPEOUT 
3039 ;; TYPE MEM SIZE 
3040 012210 104405 TYPDS ;3GO0 TYPE--DECIMAL ASCII WITH SIGN 
seo 012212 104401 021725 TYPE »MEM 
3043 SRA AAA AAA AAAAAAAAA AAA A AAA AATAAAA AAA A Ae eee eee AeA Ae eee 
3044 ;ROUTINE TO CHECK IF ‘‘EIS-FIS'’ OPTION IS PRESENT 
3045 SRR A RAAT TATA AA AAA AAA AAAAAAAA AEA e Ke AeAAAAAA AAA Ree eee eee 
3046 012216 0050357 012612 + Ae EIPRES CLEAR EIS-FIS PRESET FLAG 
3047 Q12222 0050357 014202 CLR INTFLG ;CLEAR TRAP FLAG 
3048 012226 072100 ASH RO,R1 EXECUTE EIS INSTRUCTION 
3049 012250 000240 NOP 
3050 012232 005737 014202 TST INTFLG ;TEST IF TRAP OCCURRED. 
3051 012236 001003 BNE 60$ ;BR IF YES 
3052 012240 005237 012612 INC EIPRES ;NO TRAP - SET EIS-FIS PRESENT FLAG 
3053 012244 000404 BR 61$ ;BR OVER TYPE-OUT 
3054 012246 104401 021705 60$: TYPE sELSTXT sEIS-FIS TEXT 
3055 012252 104401 022133 TYPE — ,NOTPRES 
3056 012256 61$: 


eee ee ee 


a ee -_——- 7? 
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PROGRAM 


CVKDAD.P11 14-JUL-80 16:36 SEQ 0068 
3057 PUT IIITIT TTI IT TTT T TTI TI TTT iti titi iii iiitiiiiitiiiiit ii iit 
3058 ;ROUTINE TO CHECK IF CLUSTER PORT IS PRESENT 
shen S RARRAAAARAARAAARAAAAAAEAATAKA Ae HARA AeAeAe eee KeKeeeeereereeetee 
3061 012256 005000 CLR RO 
3062 012260 005037 014202 CLR INTFLG 
3065 012264 012700 176500 MOV #TK1S,R0 ;SETUP CLUSTER CSR ADDR 
3064 012270 .005710 u$: TST (RO) ;DARE IT TO TIMEOUT 
3065 012272 005737 014202 TST INTFLG ;DID IT? 

3066 012276 001011 BNE 6$ ;BR IF YES 

3067 0123500 020027 176520 CMP RO,#TK3S ;D1D ALL 3? 

3068 0123504 001403 BEQ 5$ ;BR IF YES 

3069 012306 062700 000010 ADD #10,R0 ;ELSE DO NEXT 

Or 012312 000766 BR 4$ 

3072 012314 005237 012614 5$: INC CLPRES ;OPTION PRESENT 

th 012320 000406 BR 7$ ;ALL 3 MUST RESPOND 

3075 012322 005037 012614 6$: CLR CLPRES ;OPTION NOT PRESENT 

3076 012326 104401 021442 TYPE ,CLOPT 

sore 012332 104401 022133 TYPE »NOTPRES 

3079 012336 012737 000006 000004 /7$: MOV WERRVEC+2,ERRVEC sRESET TIME-OUT VECTOR 
30 012344 005037 00000 CLR ERRVEC+ 

3081 012350 012737 000012 000010 MOV WRESVEC+2,RESVEC ;RESET RESERVED INST VECTOR 
3082 012556 005037 000012 CLR RESVEC+2 
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PROGRAM 


WRARARABRABRASAASAAASRSARRRASARARARARARRRARARRRRARRARRRRRARARA RAR ADDS 


“ROUTINE TO TYPEOUT DROPPED ITEMS 


+ RRRRRRREH ERE R AERA AREHAAEKERAHARAREEKEKAAAE KARE KTH eRe Te eEt 
RO 
MOV #B1T5,R1 


8$: BIT R1,$DEVM :DEVICE DROPPED? 
BNE 10$ “BR IF YES 

9$: CLC 
ASL R1 
13$ ;BR IF ALL BITS TESTED 

ADD a2 .RO “ELSE BUMP INDEX 


10$: MOV 


11$: -WORD 0 
TYPE , DROP 
9$ 


12$(RO),11$ 
;DEVICE TO BE DROPPED 


128: BUF TST 
EISTXT 


emma me mee + ee a ee 


—osaee oe —— 6 


TOPO RO RU PU PURITY es 
OOO VIEW —- OO OoO~ 


RANI OSRUS RUNS 


147 
148 
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232 833 
er FN 


ar 
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021544 
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177514 
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PROGRAM 


s eeeeeeerererrererereeerereererereeeeeneeerenerenenerenereeeeres 


“ROUTINE TO CHECK IF PRINTER EXISTS 


pp eeteeeereraeaercereeeeeeeerererererereneneeaereneereneeeeeeeeneese 


13$: 


14$: 


15$: 


16$: 


;SEE IF PRINTER ERR 
;BR IF NO 


-COMM PORT IN EXT L 
;BR IF YES 


;SET PARAM REG 


M<RTS'DTR>,AMRC ;MUST BE TOGGLED 


;NOW ANY ERRORS? 
;BR IF YES 


CLR PRPRES 

CLR PRPORT 

TST PRS 

BPL 16% 

BIT #BI1T3,$DEVM 

BEQ 15$ 

TYPE »PRINT 

TYPE ,NOTPRES 

BR 17$ 

MOV AMBAUD , HOLD 

BIS #<AMOD ! OPAR! CHARB> , HOLD 
MOV HOLD, PARAM 

BIC 

BIS #<RTS!DTR>, AMRC 
TST PRS 

BM! 14% 

INC PRPORT 

INC PRPRES 


:PRINTER PRESENT 


OOPBACK? 


S;eteaketeeeeeeeererereretetrereeeeeenenateneneneeKeneeeeeeeeeres 


“SEE IF CONSOLE IS TO BE REMOVED 


SP eteaneeeeeraneeeeeeteretetereretanteeteeeaKenenenaneeeenereeenes 


17$: 


18$: 


EIPRES: 


PRPORT: 
MAXMEM: 


BIT #B11T4,$DEVM 
BEQ 18$ 

TYPE ,NOCON 

RTS PC 

0 

0 

0 

0 

0 


;BR IF CONSOLE IS T 
;ELSE TELL OPERATOR 


EIS-FIS PRESENT = 
;CLUSTER PRESENT = 
PRINTER PRESENT = 
1 = PRINTER ENABLE 


;MAX MEMORY 


O BE USED 


NON-ZERO 
NON-ZERO 


NON-ZERO 
D THRU LOOPBACK 


SEQ 0070 


ee ee wr ee se ee we ee ee 


CVKDAD 


—_ 
RAVES SSISARAN LS SSISALARS 


RAS LESELES 


0 oO 


AAAI AAAI NNN AIO AOA AAA AANA NAO 
et ce ec ec cl a ec cl cl el ee Dt a el ld 
ow 


0 oO 
on 
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004737 


000207 
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012701 
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001375 
005037 
000207 


000000 
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013620 
166314 


000002 


000077 
003300 


003510 
003512 


000001 


125252 


012752 


001176 


013076 
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PROGRAM SEQ 0071 


sRRORARARERATHeAAH THK ATTA TATE TETERA HH AH TERA TARA eA eAeeereTeree 
;ROUTINE TO SEE IF CONSOLE PRESENT 

;RETURN IF NO 

;RETURN + 2 IF YES 


SF RRAAAAAAAAAAAAAEAAAEAAATAAAETAAERAAAKARARHRARAKARARARATAAA AAAS 


CHKCON: JSR PC,TIMER1 ;SPEND SOME TIME 
TSTB asTPs :XMIT RDY? 
BPL 1$ ;BR IF NO (NO CONSOLE) 
ADD #2, (SP) ;BUMP RETURN 
1$: RTS PC 
SRR AAA AAA RAE AEE AEAE EA AAAAAEAERAARAAAAAAAAAEEAAAAARAE TAREE AEES 


~;ROUTINE-TO FILL THE “'WCP' TABLE-WETH-125252-O0N THE 1ST -PASS————————— 


;& RANDOM NUMBERS ON 2°ND & SUBSEQUENT PASSES. 


SRR REAR ATE AAER AAA E AEE EAA AAAAAAAAARARAAAAAAAAAAA ERK ARAAS 


SETPAT: MOV #77,R0 ;sWORD COUNT 
MOV #WCP,R2 ; TABLE ADDR 
TST COMP 1 >COMPATABLILTY TESTS DO WCP ONLY 
BNE 5$ 
TST COMP2 
BNE 5$ 
BIT #BITO,SPASS ;CHECK ODD-EVEN PASS 
BNE 2% :BR IF EVEN 
5$ MOV #125252,R1 :ELSE LOAD WORST CASE PATT 
1$ MOV R1,(R2)+ 
DEC RO 
BNE 1$ 
BR 4$ 
2$: INC PATFLG 
CLR LOLIM ;SET LIMITS 
MOV #-1,HILIM 
3$: JSR PC ,RAND ;GET RANDOM NUMBER, RET WITH IT IN R1 


4$: CLR 


PATFLG: .WORD 0 ;FLAG USED BY ‘'RAND’’ ROUTINE 


re ee se ae 


| 
| 
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CVKDAD .P11 14-jJUL-80 16:36 PROGRAM SEQ 0072 
3208 
3209 S REAR ARARREAAAEAEAAA TATRA AHA K ETH AAAE KA Kee AeAeAee tet eeeeer eters 
3210 ; RANDOM NUMBER GENERATOR. RETURN WITH NUMBER IN R1 
$515 + RRRRRRERRRERREEEEAHERAAEAAAEREKEREKAHEKKHeHe tee Ket He eeeteHereee 
1 
3213 012754 010046 RAND: MOV RO,-(SP) : SAVE 
3214 012756 010246 MOV R2,-(SP) 
3215 012760 013700 013102 3$: MOV LONUM,RO 
3216 012764 013701 013100 MOV HINUM,R1 
3217 012770 012702 177771 MOVs #=7, RO 
3218 012774 006300 1$: ASL 
3219 012776 006101 ROL R1 ;ROTATE CARRY TO R1 
3220 013000 005202 INC R2 ; DONE? 
3221 013002 001374 BNE 1$ ;BR IN NO 
3222 013004 063700 013102 ADD LONUM,RO ;ADD NUMBER TO MAKE X 129 
3223 013010 005501 ADC R1 
3224 013012 063701 013100 ADD HINUM,R1 ;ADD NUMBER TO MAKE X 129 
3225 0130°6 062700 001057 ADD #1057,R0 ;ADD LO CONSTANT 
3226 013022 005501 ADC R1 
3227 013024 062701 047401 ADD #47401,R1 ;ADD HI CONSTANT 
3228 013030 010037 013102 MOV RO,LONUM 
e560 3034 010137 013100 MOV R1,HINUM 
3231 013040 005737 012752 TST PATFLG sFILLING DATA TABLE? 
3232 013044 001002 BNE 2$ ;BR IF YES 
3233 ;ELSE SCALE TO BE WITHIN LIMITS 
3234 013046 042701 177400 BIC #177400,R1 ;SAVE LO BYTE ONLY 
3235 013052 020137 013074 2$: CMP R1,LOLIM 
3236 013056 103740 BLO $ ;BR IF N < LOLIM 
3237 013060 020137 013076 CMP R1,HILIM 
3238 013064 101355 BH] 3$ ;BR IF N > HILIM 
3239 013066 012602 MOV (SP)+,R2 ;RESTORE 
3240 013070 012600 MOV (SP)+,RO 
ae 013072 000207 RTS PC sELSE EXIT WITH R1 = N 
3243 013074 000000 LOLIM: 0 
at 013076 000000 HILIM: 0 
3246 013100 176543 HINUM: .WORD 176543 
3247 013102 123456 LONUM: .WORD 123456 
ae 
3250 013104 123727 001210 000001 EXAMKB: CMPB SENV,#1 ? pore stenat 
3251 013112 001404 BEQ 1$ ;BR IF YES 
3252 013114 005737 003514 TST SMFLG ;SKIP IF DOING SYNC MODEM TEST 
3253 013120 001001 BNE 1$ 
3254 013122 104407 CKSWR 
3255 013124 000207 1$: RTS PC 
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023315 
001246 
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001164 
000006 


001246 
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WRARARRBRRABASAAASLALARESALALRRRARARAR ARREARS RRRA RAR RRA RRRRRAR ADDS SS | 


“ROUTINE TO DISPLAY CURRENT DEVM & ALLOW OPERATOR TO INPUT NEW VALUE. 


SF RRAAAAAAAAAAAAEAAAEAEAARAEAAAAAAAA RA AAAERAARAAAAAAAAAAAAAAAAAAAAAE ES 


GTSDEV: TYPE 
MOV 


1$: 


2$: 


3$: 


8$: 


9$: 


10$: 


DEVM 
$DEVM,-(SP) 
, SMNEW 


-(SP) 
- (SP) 


asTKs 
2$ 


asTKB,-(SP) 
#°C177, (SP) 


(SP),#15 
7$ 

4(SP) 

4$ 
2(SP),$DEVM 
#6,SP 
,SCRLF 

PC ,STYPEC 
(SP) , #60 
9$ 
(SP) , #67 
9S 

#60, (SP)+ 
2 (SP) 


2(SP) 
-2(SP), (SP) 
2$ 

(SP) #25 
10$ 

S$QUES 
#6,SP 
GT$DEV 


sELSE SHOW CURRENT 

;;SAVE SDEVM FOR TYPEOUT 

;;G0 TYPE--OCTAL ASCIICALL DIGITS) 
;GET NEW 


:CLR CTR 
;CLR NEW DEVM 


;CHAR THERE? 
;BR N 


;BR IF NO 
;ELSE GET CHAR 
;MAKE IT 7 BIT ASCII 


;<CR>? 

;BR IF NO 

sELSE IS IT 1°ST CHAR? 
-BR IF YES 


“ELSE SAVE NEW DEVM 
“RESTORE STACK 


sECHO CHAR 
:CHAR < Q? 


:BR IF YES 

:STRIP OFF ASCII 

:1S IT 1°ST CHAR? 

:BR IF YES 

sELSE SHIFT PRESENT CHAR 
;T0 MAKE ROOM 

;FOR NEW ONE 


;KEEP CHAR CT 
;SET IN NEW CHAR 
;GET NEW ONE 


: CONTROL =U? 

:BR IF YES 

sELSE TYPE ?<CRLF> 
sRESTORE STACK 
sTRY AGAIN 


— a 


SEQ 0073 


re a ae le - sence «ee 


CVKDAD 


CVKDAD. 


3341 


WWI AANA AAAI AIA 
EFEFSEESESE 
WN —O OOnOufwnr—o 


AAA 
WwIviw 


| 
3327 
3328 
3329 


Ooooeo°0coo 
aw oo 
N\AWWNIAIAAIW 
AWAWAAAAwW 
SESSNSor 

SOoenvnoe = 


oo CoO OOOO OOoOOoOOoOOoOOoOOoO SCO 
ee ee a a a a a aed ed 


PvT11~150 EXERCISER 
6:36 


eololeoleoleolojlola) 


oooo°o oo 
ss ee 


S 


062705 
000205 


000000 
000000 


14-JUL-80 1 


000200 
000200 


013420 
013422 


000006 
177777 
000034 


013104 


001200 


000004 


015422 
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SEQ 0074 


WMABRARABRAALALALALASALAAARAEAAAARARARARARRRRRRRARAR RARER RA RAR ARRAS SD SD A 


ROUTINE TO SET 2 Seer i Ua INTERRUPT VECTORS 
3 OTTO & ARE +> yas R5: 


INTERRUPT SERVICE ROUTINE ADDRESS FOR RECVR 
INTERRUPT SERVICE ROUTINE ADDRESS FOR XMITTER. 


;* PRIORITY WILL BE SET TO DISABLE FURTHUR INTERR. 


SERRA AARERAAREAAAAAAAAAAAAARERAAAAAAARAAAAAAAAAAAAARAARATAATAAEAAES 


SETVEC: te 


; SAVE 

:GET VECTOR ADD 

:PUT SERV ROUTINE ADDR THERE 
;DISABLE INTERR 

:GET XMIT SERV ADDR NEXT 


;RESTORE 


SRRERRAERAEAAEEEEE REE EEE AAAAAAAAAARAAAARARARARARERAEREE 


“WATCHDOG TIMER Le. oe DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 


;RETURN 


IMED QU 
:RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 


SERRA AAA AA RARE RAE AAAA AREA AERA AE AAAAAARAAARAAARAAAAARAARAARARA ERED 


TIMER: 


4$: 
1$: 


2$: 


FLGHLD: 


CTHLD: 


MOV 
MOV 


0 
0 


#-1,R0 
aaa 


;GET FLAG - 
:GET COUNT THAT. FLAG SHOULD GO 10 


; RESPONDING? 
BR IF YES 


;ELSE DEC COUNTER 
;BR IF NOT TIMED OUT 

;FOR APT 

;ELSE TIMED OUT 

; JUMP OVER ERROR ON RETURN 


;FLAG 
;COUNT THAT FLAG MUST REACH 


CVKDAD 


CVKDAD. 


P11 


OOOO ooOoO°o°oo 
ee en ee ee ee ee 
SEEEEES EE 
SVEUSEESR 


= 
Ade 
Oo 


PvT11-150 EXERCISER 
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005037 


° 2s 


BSS ese SSaNe 


013522 


003500 


013104 
013516 


001200 
013520 


013522 


001200 
000004 


013616 
000002 
177777 
003500 


013104 
013516 


001200 
013520 


013616 


001200 
000004 
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FERRARA AAAAAEARAAAAAAAAA EAA AAA AAAAAAAAAAAAAARAAAAAAAEKA AAA RET EAS 


: WATCHDOG TIMER TO PREVENT DXO FROM ENTERING AN ENDLESS WAIT LOOP 


;RETURN 


; MED OU 
;RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 


SERRATE AEA AEE AAAERAAEAERARRERARAAEREREA AEE 


TIMDO: 


4$: 
1$: 


2$: 


CTREG: 


CTREG1: 


DOTMO: 


0 
0 
0 


DOTMO 

#2, CTREG1 
#-1 CTREG 
FIN 


2$ 
PC ,EXAMKB 
CTREG 


SDEVCT 
#4, (SP) 
PC 


;FINISHED? 
;BR IF YES 


sELSE DEC CTR 


;BR IF NOT TIMED OUT 
;FOR APT 


;SET FLAG 
; TIMED OUT 


sFOR APT 
;BUMP RET 


;1 = TIMEOUT OCCURED 


RRR AEAAAAAAATAAAAAARAARAARAAAAARAAARAAAAAAAAAAAAAARAAEE 


“WATCHDOG TIMER TO PREVENT DX1 FROM ENTERING AN ENDLESS WAIT LOOP 


;RETURN 


IF TIMED OUT 


;RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 


S RRA ARAAARAAAARAAAAA AAA AAA AE AAERAEREAAAAA ARK RAAARA RATER EKER ES 


TIMD1: 


4$: 
1$: 


2$: 


D1TMO: 


D1TMO 
#2,CTREG1 
#-1,CTREG 
FIN 

2$ 

PC ,EXAMKB 
CTREG 
SDEVCT 
CTREG1 

4$ 

D1TMO 

+6 
SDEVCT 
#4, (SP) 
PC 


>FINISHED? 
;BR IF YES 


ELSE DEC CTR 
;BR IF NOT TIMED OUT 
OR APT 


:SET FLAG 
; TIMED OUT 
sFOR APT 

>BUMP RET 


;1 = TIMEOUT OCCURED 


SEQ 0075 


——— ee ee 


CVKDAD 
CVKDAD 


09 


SESERE EEE EE EE EEE EE EE EEE EEE EEE EEE ELE 
SS SENS URUNESSSLRORUSLS Sasaarun—s 


, te 
wn —-o Oon 


EFESESESESE 
BRUNLESELSS 


FESESE 


Own 
—O Oonoe 


P11 


013632 
013636 


013642 
013646 


013702 


013704 
013710 


013712 
013714 
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012700 


000207 


000402 


062705 
000205 


000000 
000000 


012700 


012700 
005020 
020027 
001374 


000207 


14-JUL-80 16:36 


177777 


013712 
013714 


000001 
177777 
013714 


013104 


001200 


000004 


003004 
003030 


003254 
003300 


000032 


L 6 
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£ RRA AAARAAAAREAAEEAAEAARAAAAEAAAAERAAAREAAAARAAAEARAAAAAATA TARA A ES 


; GENERAL TIMER 


fF RARAAAAAARAEAAAAREAAAAAAAAAAAAAAREREAARARAAAAAAKORAAAAAARAARAAAAAES 


TIMER1: MOV #-1,R0 
DEC RO 


BNE -* 

RTS PC 
S RRARRA RRR REAAEE ATER TETRA TAA T AERA EAHRAKEAATAe eee eee eee LATTA 
;WATCHDOG TIMER TO PREVENT DEVICES FROM ENTERING AN ENDLESS WAIT LOOP 
; FETURN IF TIMED OUT 
;RETURN +4 IF NOT TIMED OUT & JUMP OVER ERROR 


SERRATE RAARAERAERERE REAR EAE AERA AAAAAAAAAARARERARAAAAAEEAERER EE 


TIMER2: MOV (R5)+,REGHLD ;GET REG 
MOV (R5)+,BITHLD ;GET BIT TO BE TESTED 
MOV #1 ,R1 
4$: MOV #-1,R0 
1$: BIT BITHLD,@REGHLD ;BIT THERE? 
BNE 2$ ;BR IF YES 
JSR PC ,EXAMKB 
DEC RO ;ELSE DEC COUNTER 
BNE 1$ ;BR IF NOT TIMED OUT 
INC SDEVCT ;FOR APT 
DEC R1 
BNE 4$ 
BR +6 ;ELSE TIMED OUT 
2$: ADD #4 RS ; JUMP OVER ERROR ON RETURN 
RTS 5 
REGHLD: 0 ;DEVICE REG 
BITHLD: 0 ;DEV REG BIT TO BE TESTED 


5 RRR A EAA A AEE AAA A EATER EAA EAE AEA AAA AAAAEEAAAAEEARARAAARE AAAS 


“ROUTINE TO CLEAR BOTH BAD TRACK/SECTOR TABLES 


SRR A AAA AAA AA AA AAA AAA AAA AAAARARAARAARAREKA ERA AEES 


CLRBAD: MOV #DOBAD RO 

1$: CLR (RO)+ 
CMP RO, #D0BAD+20. 
BNE 1$ 
MOV #D1BAD,RO 

2$: CLR (RO)+ 
CMP RO, #D1BAD+20. 
BNE 2$ 
RTS PC 
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CVKDAD PoT11-150 EXERCISER coin te 30A(1052) 

CVKDAD.P11 14-JUL-80 16:36 PROGRAM SEQ 0077 
3462 SERRA RAARAAAAHAAAAAE TATA A HATA TATA TA AAKAAAAe HATA eee eA AeAteeeees 
3463 aoe DXO BAD TRACK/SECTOR TABLE 
tee RARER AAAAAAAAAAAAATAAATATARATAAAAA TATA AAAKeAAeeH KAA AeA AAA eee 
ies: 013750 010046 LDOBAD: MOV RO,-(SP) ; SAVE 
3468 013752 012700 003004 MOV #DOBAD ,RO 
3469 013756 005710 1$: TST (RO) sENTRY PRESENT? 

3470 013760 00100 BNE 2$ “BR IF YES 

3471 013762 013710 177174 MOV RXSA, (RO) sELSE STORE BAD RXSA IN TABLE 

zerg 0137 00040 BR 3$ sEXIT 

3474 013770 005720 2$: TST (RO)+ ;BUMP PTR 

3475 013772 020027 003030 CMP RO,#D0BAD+20. ;AT END OF TABLE? 

3476 013776 001367 BNE 1$ ;BR IF NO 

3477 014000 104104 ERROR 104 :10 BAD SECTORS...REPLACE 

3478 014002 012600 3$: MOV (SP)+,RO RESTORE 

3479 014004 000207 RTS PC 

3480 

3481 

3482 

3483 

3484 

3485 SARA AAA ARERR A AEE RAR AREA A EAA A AAR EKA ARAAARETe RATER e Tee 

3486 CHECK DXO BAD TRACK/SECTOR TABLE BEFORE DOING RANDOM SEEKS. 

3487 :I1F TRK/SEC IN TABLE, RETURN TO RE-CALCULATE NEW TRACK & SECTOR. 

3488 MTTTITITITITITTITETT TILL LTTE LLL Litt 
89 

3250 014006 010046 CKOBAD: MOV RO,-(S°) : SAVE 

hd 014010 010146 MOV R1,-(SP) 

3493 014012 yisru: 002566 MOV DOTRK,R1 

3494 014016 000301 SWAB R 

hd 014020 053701 002570 BIS DOSEC,R1 

3497 014024 012700 003004 MOV #DOBAD ,RO 

3498 014030 020027 003030 1$: CMP RO, PDOBAD+26. sEND OF TABLE? 

3499 014034 001405 BEQ 2$ “BR IF YES 

3500 014936 005710 TST (RO) sELSE ANY ENTRY? 

3501 014040 001403 BEQ 2$ “BR IF NO 

3502 014042 022001 CMP (RO)+,R1 ;ELSE COMPARE? 

3503 014044 001371 BNE 1$ “BR IF NO 

Sepe 014046 000402 BR 3$ sELSE DONT BUMP RET ADDR 

3506 014050 2705 000002 2$ ADD #2,R5 ;BUMP RET ADDR 

3507 014054 012601 3$ MOV (SP)+,R1 ;RESTORE 

3508 014056 012600 MOV (SP)+,RO 

3509 014060 000205 RTS R5 


CVKDAD 
CVKDAD 


WWAAAWAA AAAI AIA AAAI AAW 
Ue nat ak ad sh ak al ah ak ak ak sk dk ah dh ae A A Ae A 
SESS SSS ory oe aan anaes 

RWW © ODN UE WPN $$ O OONOU EWN 


3536 


P11 


o ooo oo 
ai a@tabdatt wad 


oooocceel 
SE 
et 
w 
— 
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010046 
012700 
0 


000207 


010046 
010146 


013701 
000301 
053701 


003254 


177174 


003300 


003036 
003040 


003254 
003300 


000002 
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SARAH HAAAEAAAAAAAAAAAEEAAAARAAAAAAARAARAAAARAAARARAAAAARAAAEAEEE 


“LOAD DX1 BAD TRACK/SECTOR TABLE 
£ RAR AAAAAAAREAAARERAAE ARETE RAAAAAAARAARAAAARAAAAAARAARARERERERAAAAAEE 


LDIBAD: MOV RO,-(SP) ; SAVE 


MOV #01BAD ,RO 
$ TST ) 


MOV RXSA, (RO) 


;ENTRY PRESENT? 


;BR IF Y 
BR a STORE BAD RXSA IN TABLE 


2$ TST ;BUMP PT 
;AT END OF TABLE? 


“10 BAD SECTORS...REPLACE 
| ee sRESTOR 


(RO) + 
CMP RO,#01BAD+20. 


3$ MOV 


MOV — 
BIS DISEC,R1 


MOV #D1BAD,RO 
1$: CMP RO,#01BAD+20. sEND OF TABLE? 

BEQ 2$ ;BR IF YES 

TST (RO) sELSE ANY ENTRY? 

BEQ 2$ ;BR IF NO 

CMP (RO)+,R1 sELSE COMPARE? 

BNE 1$ : IF NO 

BR 3$ sELSE DONT BUMP RET ADDR 
2$ ADD #2,R5 ;BUMP RET ADDR 
3$ MOV (SP)+,R1 :RESTORE 

MOV (SP)+,RO 

RTS R5 


6 
0G SEQ 0078 
1$: (RO 
2$ BR IF YES 
3$ EXI 
: 0 BUM R 
BNE 1$ BR IF NO 
105 
: STORE 
C 
PETTITT iii iti titi tii iii ii iti titi ir iii rere ee 
:CHECK DX1 BAD TRACK/SECTOR TABLE BEFORE DOING RANDOM SEEKS. 
:1F TRK/SEC IN TABLE, RETURN TO RE=CALCULATE NEW TRACK & SECTOR. 
PUTTISITI TTT Tite Titi tit iti iii it iti titi iit titi iri i titer ris 
CKIBAD: MOV RO,-(SP) : SAVE 
MOV R1,-(SP) 


_——_- — 


CVKDAD 
CVKDAD 


P11 


Ou fun rornv— 


SSao BOOMOMONE MOA Fr 


oo phete PITITOPOPUIPIPUPOTY eo PU PUrUrUrT 


COO COOOOCOOSOO COOCOCOCOCOOCOOSO CCCOCO 
MmnN—— 


— 2 => ee eed eed ee aed ed aed od — 2) 3 2d 3d Dd wd 3 —> tb 8 2 Dd 
ae 2 ee tT ot ot De ot ot ot ot ot ot ot ot ee ot ot ot ee 


WW WWW 
eNO ONC O 


WWW 
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005237 
000002 
000000 


013737 


005237 
000002 


000000 
000000 
000000 


14-JUL-80 16:36 


014202 


014330 
014330 


014330 
014330 
014330 


000012 
000040 
000015 


014332 
001200 


014334 


177516 
000015 


000012 
000176 


014330 
014330 
014330 
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~SBTTL INTERRUPT HANDLERS 


* MRRARAAARAAAAAAERAAEAAEKAEAAEAAAAAAAAAAAAAAAAAAAARAARAAAAAAARAAAAAAE 


: GENERAL SERVICE ROUTINE TO BUMP 'INTFLG' 
: CALLING ROUTINE WILL KNOW WHAT TO DO 


SE REREARAAAAEEAAAEEEAAEAAAEHAAAAEEEEAAAAAAAAAAARAAAAAAAAAAAAAAAEANE 
INTSRV: INC INTFLG 

RT 
INTFLG: 0 


SEQ 0079 


SS RRARAEREEEREREAAEAEEEAEEAAR AREER AAAAAEEEAAAAAAAAAAAAAAEAAARAA AEE 


“PRINTER INTERRUPT HANDLER: VALUES FROM 40 THRU 176. 
SE RRAREAEAEAEERERE RARE EE AA AEA ARAERAARAEREAAARAAAAAARAEREARAEE 
PRSRV: MOV PRS,SPRS : STORE 
TST SPRS + ERROR? 
BPL 1$ ;BR IF NO 
ERROR 7 “PRINTER STATUS ERROR 
RTI 
1$: MOV PRCHR,PRB sELSE PRINT CHAR 
CMP PRCHR,#CR - JUST DID CR? 
BEQ 2$ -BR IF YES 
CMP PRCHR,#LF : JUST DID LF? 
BEQ 3$ -BR IF YES 
CMP PRCHR,#176 : JUST DID LAST CHAR? 
BEQ 4$ -BR IF YES 
INC PRCHR “ELSE BUMP CHAR FOR NEXT INTERRUPT 
BR 5$ sEXIT 
2$ MOV #LF,PRCHR :DO LF NEXT 
3$ MOV #40,PRCHR -DO SPACE NEXT 
4$ MOV #CR,PRCHR :DO CR NEXT & START OVER 
INC LINCT 
INC SDEVCT -FOR APT 
5$ RTI 
PRCHR: 0 :CHAR TO BE PRINTED 
LINCT: 0 *LINE CTR 
SPRS: 0 -STORE PRINTER CSR 





CVKDAD 
CVKDAD 


$608 


SROSOO 
eScsee 


OPS SOOO 


PIPRIPOIRY 8 ot ot ot 2 ot ot ot 
WN "OO OO@nNOufwn oO 


esti alti etn eS 
SEIELEUNIESS OOS 


eT EPERENY: 





sees 
wo Oo 


P11 


14444 


ooo 


=) 
—> 
= 
, > 
w 
= 


70 
14472 


oo oooo oooo ooo 
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042737 
013737 
000002 


013737 
023737 
001401 
104010 


023727 
001403 
005237 
000404 


005037 


000002 


000000 
000000 


042737 
013737 
000002 


013737 
023737 
001401 
104011 


023727 
001403 
005237 
000404 


005037 
005237 
052737 
000002 


000000 
000000 
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000100 
014432 


ro 
ui 
Wo 
er 


014432 
014432 
014432 


001200 
000100 


014532 
014532 
014532 


001200 
000100 


000377 


176504 


176514 
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INTERRUPT HANDLERS 


SRAAAARHRAAAAAAAAAAAEAAAAAAAAKAAERAAAAAAAAAAAAAAAAAAAERAAAAAAAAEE 


CLUSTER TERMINAL #1 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


SRRAAAAARAAAAAAAEAEEAATEAEAAAAEAAAERAAAAAAAAAAAARAAAAAAAAAARAARAAAE 


TPISRV: 


TKISRV: 


1$: 


2$: 
3$: 


TICHR: 
TIHLD: 


BIC 
MOV 
RTI 


WIE,TPIS ;DISABLE o_o RECV'R WILL TURN BACK ON 
TICHR, TP1B : PRINT CHAR 

TK1B, TTHLD ;STORE CHAR 

TIHLD, TICHR 0K? 

1$ ;BR IF YES 

10 ;CHAR COMP ERROR 
TICHR, #377 oy? CHAR? 

2$ ;BR IF YES 

TICHR :ELSE BUMP 

3$ 

TICHR »START OVER 

SDEVCT sFOR APT 

#W1E,TP1S sALLOW PRINTER INTERK 


sCHAR TO XMITT 
sREC'D CHAR 


SRR ARARAAEAREAR AAA EEEEAAAAAERARAAAAAAAAAAARAAARARAAERER EARS 


LUSTER TERMINAL #2 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


SERRA AAARAAAEAERAAEAREE AEA EAA AAR AAEAAAAAAAAEARARAAAEAAAERAARAAR ERAS 


TP2SRV: 


TK2SRV: 


BIC 
MOV 
RTI 


#IE,TP2S ;DISABLE on RECV'R WILL TURN BACK ON 
T2CHR,TP2B :PRINT CHA 

TK2B, T2HLD ;STORE CHAR 

T2HLD, T2CHR :0K? 

1$ ;BR IF YES 

11 ;CHAR COMP ERROR 

T2CHR #377 he CHAR? 

2$ R IF YES 

——— ELSE BUMP 


:START OVER 
sFOR APT 
:ALLOW PRINTER INTERR 


;CHAR TO XMITT : 
:REC'D CHAR . 


arm 


CVKDAD 
CVKDAD 





P11 


—-a —_ 4 3 —2 —_ —) —» 
= 


0146350 


014632 
014634 


1 
014710 
014712 


014732 
014734 
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042737 
013737 
000002 


013737 
023737 
001401 
104012 


023727 
001403 
005237 
000404 


005037 


000002 


000000 
000000 


042737 
013737 
000002 


013737 


104013 


023727 
001403 
005237 
000404 


005037 
005237 
052737 
000002 


000000 
000000 
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000100 
014632 


176522 
014634 


014632 
014632 
014632 


001200 
000100 


000100 
014732 


014732 
014732 
014732 


001200 
000100 


176524 


176614 
176616 


014734 
014732 


000377 


176614 
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INTERRUPT HANDLERS 


SRRAAAAARAAAAAEAAAAAAAAAAAAEHKAAAAAAAAAAAAAAAAAAARAAAARAAAAEAAAEAE 


CLUSTER TERMINAL #3 INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


FRRAAAAAAAAAAAAERARAEAAAAAAAAAAARAAAAAAARAAAARAARAARAKAARAAAAAA AAAS 


TP3SRV: 


TK3SRV: 


1$: 


2$: 
3$: 


T3CHR: 
T3HLD: 


BIC 
MOV 
RT] 


T3CAR, TP3B 


SDEVCT 
#1E,TP3S 


;DISABLE INTER, RECV'R WILL TURN BACK ON 
;PRINT CHAR 


;STORE CHAR 
;OK? 


“BR IF YES 
“CHAR COMP ERROR 


ig CHAR? 
R IF YES 
ELSE BUMP 


;START OVER 
sFOR APT 
sALLOW PRINTER INTERK 


; CHAR TO XMITT 
REC'D CHAR 


MARBEBBEBBEZALELALSLALAELLELESEA SALAS ESARRRARR RR RRRR RRR RRR RRR RRR ARDS SD SO | 


;ASYNC COMM PORT INTERRUPT HANDLER: LOOP VALUES 0 THRU 377. 


FERRARA AERA AERA AEEAAAARE ARERR ER EAR ARAAAAAAAREARAARARAEAARAARAARARE AERTS 


AMXSRV: 


AMRSRV: 


3$: 


COMCHR: 
COMHLD: 


BIC 
MOV 
RTI 


0 
0 


#1E ,AMXC 
COMCHR , AMXB 


AMRB , COMHLD 
COMHLD , COMCHR 


1$ 
13 


COMCHR , #377 
2$ 


COMCHR 
3$ 


COMCHR 
SDEVCT 


WIE ,AMXC 


; DISABLE od RECV'R WILL TURN BACK ON 
;XMITT CHA 


;STORE CHAR 
;OK? 


;BR IF YES 
;CHAR COMPARE ERROR 


;LAST CHAR? 
BR IF YES 
ELSE BUMP 


;START OVER 
:FOR APT 
;ALLOW XMIT INTERR 


:XMIT CHAR 
sREC'D CHAR 


SEQ 0081 


me a meee 


orn 


CVKDAD 


CVKDAD. 
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015010 
015016 
015022 


015024 


015056 


— —> —*> i et —> 2 


015024 
015024 


000100 
001200 


000020 
001200 


1 obee 
014734 


014734 
014732 
014732 


177777 
000100 
001200 


000100 


Poti i= tt EXERCISER 
16:36 


176624 


176624 


014734 
000026 


014732 


000377 


014732 
176620 


176624 


ee cee ee ee — 0 ee 
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INTERRUPT HANDLERS 


SRRAHTHRHHRHAKAHAHE HEHE TETTAK HEA HARAAKAKAAKARARAHeeAKetAteeeeet 


Sync COMM PORT INTERRUPT HANDLER: LOOP VALUES 27 THRU 377. 


FRPARAAAAAAAAAAKAAAAAREHAAAAHAAHAAAAAAAAAARERATAAARAAKE KATATE 


SMXSRV: BIC WIE, SMXC fake ae RECV'R WILL TURN BACK ON 
MOV COMCHR ,SMXB ;XMITT CHA 
CMP COMCHR #377 ;LAST CHAR? 
BNE 2$ BR IF NO 
TST LSTCHR 
BNE 1$ 


INC LSTCHR 


BIS WIE ,SMXC ;ALLOW RDY INTR SO CAN SHUT DOWN FAST 
INC SDEVCT :FOR APT 
RT] 
1$: BiC #SEND, SMXC :NO MORE TO SEND 
INC SDEVCT ;FOR APT 
2$: RT] 
LS” HF: Q ;SET WHEN LAST CHAR AMIT 
SMRSRV: MOV SMRB,COMHLD ;STORE CHA 
ce + Sect ettamae ; IGNORE SYNC CHARS 
CMP COMHLD,COMCHR = ;0K? 
BEQ 1$ :BR IF YES 
ERROR 14 :CHAR COMPARE ERROR 
1$ CMP COMCHR , #377 sLAST CHAR? 
BEQ 2$ -BR IF YES 
INC COMCHR ;ELSE BUMP 
BR 3$ 
2s: MOV #-1,COMCHR : INDICATE DONE 
BIC WIE ,SMRC ALL DONE 
INC SDEVCT sFOR APT 
BR 4% 
3$: BIS WIE ,SMXC sALLOW XMIT INTERR 
4$: RT] 


ee ee ee rm ee eee 
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SEQ 0083 


;eeeereeeeereeeerereererereeeeeereeeReeeeeeeeeeeeeeeeeeeeaeeeeee 


ISK INTERRUPT HANDL 


D ERS 
"ALL DISK INTERRUPTS ENTER THRU RXSRV é DISPATCH TO THE 
; CURRENT estan 3 tt POINTED TO BY: 


ODISP FOR DXx0 INTERRUPTS 
1DISP FOR DX1 INTERRU 


RXCS 
1$ 


RXCS,SRXCS 
RXES,SRXES 
+ ecngecnas 


RXCS 
2$ 


RXCS,SRXCS 
RXES,SRXES 
RXSA,SRXSA 


MUSEL ,RXCS 
DIINT 
aDODISP 


aD1DISP 


D PTS 
MILL GENERALLY BE IN THE ORDER OF SERVICE ROUTINES BELOW. 


FRRAAAAAAAAAHHAAHATAREKAAAAEAEAAAAKARAKAAAAATAAKAK AAA AAA ARA ETS 


;CONTR RDY? 
BR IF YES 
;ELSE SAVE FOR ERROR TYPEOUTS 


;UNEXPECTED INTERRUPT 

;GO BACK 

; ERROR? 

;BR IF NO 

;ELSE SAVE FOR ERROR TYPEOUTS 


;CHECK UNIT SELECT BIT 
;BR IF INTER FROM DX1 


;ELSE DISPATCH TO DXO SERVICE ROUTINE 


;DX1 INTERRUPT DISPATCH 


;SAVE RXCS 
;SAVE RXES 
;SAVE RXSA 


ee ee em mm ee ee ee ee << ae 


orn 


; 
ee me eee ee ee te ee ee ee ee ere ee ee - ee 
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005303 


013701 


000002 
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000100 
002566 


002570 


177172 


003300 
177172 


002566 
002570 


093476 
000115 
000105 


015226 
177170 


015226 
000005 


177170 
177170 


et ee —- + 
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INTERRUPT HANDLERS 


'MARARARALALRAASLALAAA SERRA ARARAAAA RRR RRR RRRRR RRR RRA RRA RRA AAR ASD SD SD OS 


: HANDLER TO FILL THE DRIVE BUFFER FOR DXO 
“@ POINT TO THE WRITE SECTOR HANDLER. 


PRITTTIIITITITITITILI STEELE TTL i titi 


R2 Das. ; SAVE 


DOFBUF: MOV 
MOV #160, “WORD CT 
MOV DOTRE. a 
SWAB RT 
BIS DOSEC,R1 
MOV #DOWSEC,DODISP ;POINT TO WRITE SECTOR AFTER RTI 
MOV #<FBUFIIE>,RXCS : ISSUE FILL BUFFER CMD 
MOV R1,RXDB -1'°ST WORD = ADDRESS 

i wee ke! ae 

MOV ¥WCP.R2 GET -TABLE-ADDR 

1$ MOV (R2)+,RXDB “ALL REST IS FROM TABLE 
DEC R3 
BNE 1$ 
MOV (SP)+,R2 RESTORE 


5 SRR AAA AEAAAEAAA ERE EAA EREREAAAAAAAAAAAAAAAAAA KARATE AS 


;HANDLER TO WRITE THE SECTOR FOR DXO & POINT TO WRITE CHECK. 


SRR RRR RRR R ARATE TATA TATA TATA AA AAA TARA AEA THA eA RRA TATA ATE 
DOWSEC: MOV DOTRK,R1 
SWAB R1 


BIS DOSEC,R1 
MOV R1,RXSA ;LOAD TRACK & SECTOR ADDR 


eo - 


MOV #DOWCHK.DODISP :POINT TO WRITE CHECK HANDLER 

CHP DXTST A we 

MOV #<WDDSEC'IE>, RXCS “ONLY FOR WRITE DELETED DATA TEST 
I$: MOV #<WSEC'IE>, RXCS ;ISSUE WRITE SECTOR COMMAND 


SEQ 0084 


mm mer me ee a eee ee 


é 


oo 
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SEQ 0085 





RRR ReHRE RHR RERH THK HE TATRA AH RAK KAT AAR AeA eH eH TAA eee Tee Tee 
‘HANDLER TO WRITE CHECK ON DxO. 

;WILL GO TO FILL BUFFER TO DO SAME SECTOR ON SOFT ERROR 

;OR NEXT SECTOR ON NO ERROR OR HARD ERROR. 

“WILL GO TO READ SECTOR AFTER ALL SECTORS ON TRACK ARE WRITTEN. 
:A RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF) 


SF RRERAAAAEAAAAARAREAAAEAAAEHAAAAAAAAAARAAAAAARAAAAAARAAAAAAAARAREAEES 


015402 005737 177170 DOWCHK: TST RXCS oe 
5406 100033 BPL 1$ R IN NO 
015410 023727 002564 CMP DOERR,#10. aT ERRORS? 
015416 001066 BNE 6$ “BR IF NO & TRY AGAIN 
015420 004737 013750 JSR PC,LDOBAD sLOAD BAD TRK/SEC TABLE 
015424 032737 000020 BIT #RNFE ,SRXES : SEEK K ERROR? 
015432 001417 BEQ 7 ;BR IF NO 
15434 004737 020612 JSR R7,SEKTST : SEE IF REALLY ON RIGHT TRACK 
015440 005737 003516 TST SEKFLG 
015444 141 BEQ 7$ :BR IF tx 
015446 005037 003516 CLR SEKFLG sELSE CLR FLG 
015452 104064 ERROR 64 HARD SEEK ERROR WRITE SECTOR 
015454 012737 015534 MOV #2$,D0DI1SP ‘60 TO 2$ AFTER RESTORE 
015462 012737 000117 MOV #<RESTOR'IE>,RXCS 
015470 000002 RTI 
015472 104016 7$: ERROR 16 :HARD ERROR WRITE SECTOR 
015474 000417 BR 2$ :GO TO NEXT SECTOR 
015476 005737 002564 1$ TST DOERR ; ANY ney ERRORS? 
015502 001414 BEQ 2$ R IF * #2 
015504 5237 031434 INC TSERR : TOTAL SOFT ERR CT 
015510 005237 031440 INC PSERR “PASS SOFT ERR CT 
015514 005737 003516 TST SEKFLG : SEEK ERROR? 
015520 001404 BEQ 8% :BR IF NO 
015522 005037 003516 H EKFLG 
015526 104065 ERROR 6 :SOFT SEEK ERROR WRITE SECTOR 
015530 0401 BR 2$ 
015532 104017 8$: ERROR 17 :SOFT ERROR WRITE SECTOR 
015534 5037 002564 2$: CLR DOERR 
015540 004537 020532 JSR RS,NXTSEC :CALC NEXT SECTOR 
015544 002570 DOSEC 
015546 000137 015244 4$: JMP DOF BUF :GO TO FILL BUFFER & DO ANOTHER 
015552 012737 000001 5$: MOV #1 ,D0SEC sALL SECTORS DONE...CHECK DATA 
015560 005037 002564 CLR DOERR 
015564 005037 002572 CLR DOCMER 
015570 000137 015632 JMP DORSEC :GO TO READ SECTOR HANDLER 
015574 005237 002564 6$: INC DOERR 
015600 032737 000020 BIT #RNF ,SRXES > SEEK ERROR? 
015606 001757 BEQ 4$ “BR IN NO 
015610 004737 020612 JSR R7,SEKTST >SEE IF ON TRACK 
015614 012737 015244 MOV #DOF BUF ,DODISP “GOTO FILL BUFF AFTER RESTORE 
015622 012737 000117 MOV #<RESTOR'IE>, RXCS 
015630 000002 RTI 


ym 
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002566 


002570 
177174 


015666 
000107 


177170 
002564 


002564 
000020 


020612 


015632 
000117 


013750 
000020 


020612 
003516 
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016714 
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INTERRUPT HANDLERS 


SRRAERARAAARARAAAAEAAAAATERAKEHAHAAAAETHEREKAAARAAARAAARAAAAAA AAAS 


;HANDLER TO READ A SECTOR ON DXO & POINT TO CHECK. 


SRARERAAAARAAAAAEEEEAAEAAAAEAAATAAAAAEAHEAAAAARARAAAAAARARAT ARATE 


DORSEC: MOV 
SWAB 


* ts R1 


DOSEC, 
R1 RKSA. ;LOAD TRK & SECTOR ADDR 


#DORCHK,DODISP ;POINT TO READ CHECK HANDLER 
M<RSECIIE>,RXCS ; ISSUE READ SECTOR COMMAND 


See RReRRRK ERR ARE RATA AAT AEA ATER A TAKARA RAAT H eee TARA Eee 
: HANDLER TO READ CHECK ON DXO. 

;WILL GO TO NEXT SECTOR/TRK IF HARD ERROR. 

;WILL GO TO EMPTY BUFFER IF NO ERROR - SOFT ERROR. 

;WILL GO TO READ SECTOR (SAME) ON ERRO 

:A RESTORE 1S PERFORMED AFTER ANY SEEK ERROR (RNF). 


SRR AAAAEEAAAAAREEAEAAAAAAAAE AAA AAAARAAAAAARAAAAAARARARAAAAH KEARNS 


DORCHK: Hb 


3$: JSR 


7$: BIT 


10$;: CLR 


RXCS ; ERROR? 

1$ :BR IF NO 
DOERR,#10. ;10 ERRORS? 
3$ :BR IF YES 


sELSE DO AGAIN 
czeee —" 


SEE IF ON TRACK 
“ELSE DO RESTORE & RET TO RD SEC 


DOERR 
#RNF ,SRXES 
DORSEC 


R7,SEKTST 
#DORSEC ,DODISP 
W#<RESTOR'IE>,RXCS 


PC,LDOBAD :LOAD BAD TRK/SEC TABLE 

#RNF ,SRXES ;SEEK ERROR? 

7$ ;BR IF NO 

R7,SEKTST - :SEE IF REALLY ON RIGHT TRACK 
SEKFLG 

10$ ;BR IF ve", 

SEKFLG sELSE CLR FLG 

66 sSEEK ERROR READ SECTOR 
#DONEXT,DODISP ;DO RESTORE 


M<RESTOR!IE>,RXCS 


#CRC,SRXES ;CRC re 
10$ SBR NO 
DOCRC ELSE. SET FLAG 
106 ;HARD CRC ERROR 
2$ :& GO TO EMP BUFF TO CHK DATA 
DOCRC 
0 ;HARD READ ERROR 
DONE XT 


SEQ 0086 


* 
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002564 
031434 
031440 
003516 


003516 


002564 
003476 


000040 


016136 


000100 


177172 


000005 


177172 
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1$: TST DOERR 
BEQ 2$ 
INC TSERR 
INC PSERR 
TST SEKFLG 
BEQ 3} 
CLR SEKFLG 
ERROR 67 
BR 2$ 

9$: ERROR 21 

2$: CLR DOE 
CMP DXTST,#5 
BNE 6$ 
BIT #0D,RXES 
BNE $ 
ERROR 52 

6$: JMP DOEBUF 





if 
—- 09:47 PAGE 88 


;ANY PREV ERRORS? 
F NO 


> BR N 

;TOTAL SOFT ERR CT 
;PASS SOFT ERR CT 
; SEEK ERROR? 

;BR IF NO 


;SEEK ERROR READ SECTOR 
;SOFT ERROR READ SECTOR 


sDOING WRITE DELETED DATA TESTS? 
;BR IF NO 

; "DELETED DATA’ SET? 

;BR IF YES — 

:DD NOT SET 


:GO TO EMPTY BUFFER 


'WMERAREBREBSBESABLASZASLLARRLEASASARARERARRRRRRARARRRRRRRARRRRR RAR RRA D SS SO OD | 


: HANDLER TO EMPTY THE DRIVE BUFFER FOR DXO 


;& POINT TO THE CHECK DATA HANDLER. 


SRR AAAAE AREER AA EEA EAA A AERA EERE EAARRAAAARA RARER EEE 


DOEBUF: MOV #100,R3 

MOV #DOBUF ,R1 

MOV #DOCDAT,DODISP 

MOV #<EBUF'IE>,RXCS 
1$: MOV RXDB,(R1)+ 

DEC R3 

BNE 1$ 

RT] 


;WORD CT 

;BUFFER ADDRESS 

;POINT TO CHK DATA AFT INTER. 
; ISSUE EMPTY BUFFER CMD 

;GET WORD & STORE IT 


ome em ee — 


SEQ 0087 
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002572 
002566 
002570 
002604 


002576 
002600 
002572 


002576 
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000002 


002572 
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002574 


003476 
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K 7 
MACY11 30A(1052) Q1-DEC-80 09:47 PAGE 89 


INTERRUPT HANDLERS 


: WITTTITITITITITIITIT TTT LITT LL LLL LLL LLL LLL 
: HANDLER TO CHECK DATA AFTER EMPTY BUFFER CMD ON DXO. 

;WILL GO TO NEXT SECTOR HANDLER ay NO ERR OR HARD ERR. 

;OR TO READ SECTOR (SAME) WHEN SOFT ERR. 

sTHIS ROUTINE IS ALSO ENTERED FROM A CRC ERROR FROM A READ COMMAND. 


SRAARERAARAAAAAAEEATAEAEREREAAAAAAAAAAAAAARAAAAAARAARARERAAREAAAAAES 


DOCDAT: CLR DOCMER 
MOV #100,R3 sWORD CTR 
MOV #WCP=-2,R4 ;GET TABLE ADDR 
MOV DOTRK,R1 
SWAB R1 
BIS DOSEC,R1 :R1 NOW HAS EXPECTED DATA (1°ST WORD) 
MOV #DOBUF ,R2 :GET BUFFER ADDR 
CMP R1,(R2) :1°ST WORD COMPARE OK? 
BEQ 2$- sBR IF YES , 
MOV R1,DOEXP sELSE SAVE 
6$: MOV (Re) ,DOREC 
INC 
BR 
1$: CMP (RG), (R2) ;COMPARE ALL REST 
BEQ $ R IF OK 
MOV (R4) ,DOEXP ELSE SAVE 
BR 6$ 
2$: DEC R3 
BEQ 3$ 
ADD #2,R2 
ADD #2,R4 
BR 1$ 
3$: TST DOCMER ;ANY COMP ERR? 
BEQ 4$ ;BR IF NO 
TST DOCRC *HERE FROM CRC ERROR? 
BEQ 14$ ;BR IF NO 
ERROR 107 sDATA CRC ERROR 
R 5$ 
14$: CMP DOCERR,#10. sELSE, 10 ERRS YET? 
BNE 7$ :BR IF NO 
CMP DXTST,#3 sDOING INIT TEST? 
BNE 8$ :BR IN NO 
ERROR 53 : INITIALIZE ERROR 
R 5$ 
8$: ERROR 22 *HARD ERROR DATA COMPARE 
BR 5$ 
4$: TST DOCRC sHERE FROM CRC ERROR? 
BEQ 15$ : F ON 
ERROR 110 :CRC ERR WITH DATA OK 
BR 5$ 





SEQ C088 
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002574 


031434 
031440 


002574 
002602 
016714 


002574 
003476 


015632 
017052 


002564 
002572 
020532 
015632 
012624 
010000 
021572 
022504 
002566 
022574 
003500 
002566 
002566 
000001 
012624 
010000 


021572 


000100 


000003 


162440 


003502 


002570 


162350 


177170 
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INTERRUPT HANDLERS 


15$: 


5$: 


7$: 


12$: 


DOCERR 
5$ 


DONE XT 


DOCERR 
DXTST, #5 
12$ 


DORSEC 
DODUN 


SEQ 0089 


;ANY PREV ERR? 
: F NO 


7B N 

;TOTAL SOFT ERR CT 
;PASS SOFT ERR CT 
;SOFT ERROR DATA COMP 


On IF rly TEST? 
;ELSE READ SECTOR OVER AGAIN 
ALL DONE 


RRR ERE EATER AERA TE RATER AKA RAAAAARAAAEAAERAETRAE TATE TRAE 
: HANDLER TO SETUP NEXT SECTOR/TRACK FOR DXxO. 
;WILL GO TO READ SECTOR (NEXT) IF ALL SECTORS ON TRACK NOT DONE. 
sWILL GO TO FILL BUFFER (NEXT TRACK) IF ALL SECTORS ON TRACK DONE. 
eeoae SHUT OFF DRV INTERRUPTS IF ALL TRACKS DONE, WITH A MESSAGE. 


SRARAAAAREAREEEEAAEEE AEE AEAEAAEAREAREE AERA AARERAAAEAAAREREAEERE 


DONXT1: 


2$: 
3$: 


6$: 


4$: 


7$: 
5$: 


CLR 
CLR 


JSR 
DOSEC 
JMP 


DOERR 
DOCMER 

RS ,NXTSEC 
DORSEC 

+ amas 
#B1T12,aSWR 
6$ 

»DRVO 


, TRK 
DOTRK,-(SP) 


~ {DUN 


FIN 

DOTRK ,MAXTRK 
4$ 

DOTRK 

#1 ,D0SEC 

5$ 

coe 
#B1T12,aSwR 
7$ 


;CALC NEXT SECTOR 


;G0 READ SECTOR | 
;CHECK IF CONSOLE PRESENT 

SRET HERE IF NOT 

;SKIP TYPEOUT IF NOT SET 


;;SAVE DOTRK FOR TYPEOUT 
3:60 TYPE--DECIMAL ASCII WITH SIGN 


;SETUP TO GO TO DX! 
sLAST TRACK? 

:BR IF YES 

:BUMP TRACK 

: INIT SECTOR 


sCHECK IF CONSOLE PRESENT 
sRET HERE IF NOT 
;SKIP TYPEOUT IF NOT SET 


;PATT DONE FLAG 
;DISABLE DXO INTERRUPTS 


"7 
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4098 
4099 SF RAARAAAAAAAARAAAAAAAAAAAAAAKKeAAeKe eH eReTeKeeanerenereneeeaeeeee 
4100 “HANDLER TO SETUP TO GO TO NEXT RANDOM TRACK/SECTOR FOR DXO. 
4101 SSRRAAAHHRHKRHRAKEHAAAKETE HEA AHKeeeHATeeeeAKeKeRteAeeneneRetetes 
4102 
4103 016622 005037 002564 DONXT2: CLR DOERR 
4104 016626 005037 002572 CLR DOCMER 
4105 016632 005237 003500 INC FIN :SETUP TO GO TO Dx1 

106 016636 005237 002562 INC DOCNT 
4107 016642 023737 002562 003504 CMP DOCNT ,MAXSK -DID ALL SEEKS? 

108 016650 001015 BNE 1 “BR IF NO 
4109 016652 004737 012624 JSR PC, CHKCON “CHECK IF CONSOLE PRESENT 
4110 016656 000412 BR 1 sRET HERE IF NOT 
4111 016660 032777 010000 162252 BIT #B1T12,aSWR “SKIP TYPEOUT IF NOT SET 
4112 016666 001406 BEQ 1$ 
4113 016670 104401 021572 TYPE  ,DRVO 
4114 016674 1044601 022524 TYPE §_, RANDOM 
4115 016700 104401 022574 TYPE =, DUN 
4116 016704 042737 000100 177170 1$ BIC WIE, RXCS -DISABLE DXO INTERRUPTS 
4117 016712 000002 RT] 
4118 
4119 
4120 
4121 
4122 
4123 016714 023727 003476 000001 DONEXT: CMP DXTST,#1 
4124 016722 001647 BEQ DONXTI 
4125 016724 023727 003476 000002 CMP DXTST, #2 
4126 016732 001733 BEQ DONKT2 
4127 016734 000446 BR DODUN 


CVKDAD 
CVKDAD.P11 
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016752 
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017000 
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017014 


017016 
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012737 
012737 


012737 


012737 


000002 


012737 
012737 
000002 


012737 
012737 
000002 


012737 
012737 
000002 


mw 
~mMN 
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FS SFS 


mw 
add 
a i 


; 
00000 


046032 


017052 
000111 


017052 
000117 


017066 
000137 


017052 
000113 


017052 
000105 


003500 
000100 


003500 
000120 


177174 


015226 
177170 
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177170 
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SRAAAAEAAAAAAAAAEEAAAAAAEA AAA AEAAAAAAAAAAAARAARAAAAARAREAAAAATS 


;HANDLER TO SETUP INITIALIZE COMMAND TEST 


OUT a TITS eT IS Tilt iti ii titi ilili littl titi iii rrr ey 
DOINIT: MOV #46032 ,RXSA 
MOV #DODUN ,DODISP 


MOV #<INITAL! IE>,RXCS 
RTI 


SINIT SHOULD GO TO TRK 1, 
:POINT TO DONE HANDLER 
;D0 INIT COMMAND 


SRRERAAARARAERAEREAAEEEA EEA AAAAAAAAAAERARAAAAAARAARARAREAAARARAEEE 


HANDLERS TO SETUP RESTORE COMMAND TEST 


SRREAAERAAAAAARAAE AERA AA AEA AEAAEAAAAAAARARAAAAAAERAERAARERAARAATAA AEE 


DOREST: MOV #DODUN,DODISP ;POINT TO DONE HANDLER 
ati #<RESTOR! E>, RXCS 


DIREST: MOV #01DUN,D1D 
sf A<RESTOR '] 


SRR AR AERA AAA AAA AE AAAAAAEAR EERE EEA AAAEARAAEAAAAARARERAAAAARAAARAA EEE 


;HANDLER TO SETUP READ STATUS COMMAND TEST 


SUR AA AREA EAAAEAEAA ATE A ERATE AAA AAARARAAAAAAAAEAARAAAARARAA EARNED 


DOSTAT: MOV #DODUN,DODISP ;POINT TO DONE 
A 5 M<RSTAT!LE>,RXCS ;D0 READ STATUS COMMAND 


RARER ERA ER ARAAAAA TATA A AAA ETAT ATTA AAAAAAATAAARA TAKARA RA ATTRA AEE 


: HANDLER TO START INVALID ADDRESS TESTS 


SRARAAAAAARAREEAAEAAAAARERAAAAAAAAAAAAAAAAAAAAAAAA AERA AAA A AES 


DOINV: MOV #DODUN,DODISP ;POINT TO DONE 
ti M<WSEC'IE>,RXCS ;00 WRITE SECTOR COMMAND 


ISP 
E!'DX1>,RXCS 


SeReeeeeeeeeeeeRe eee ee eee eee eeedeeeeeeeeeteeeeeeereeeeereeeenee 
‘ HANDLERS TO FINISH INITIALIZE, RESTORE, WRITE DELETED DATA, 
;READ STATUS & INVALID ADDRESS TESTS. 


PITTITITITITITITIT LLL 


DODUN: INC FIN ;SET DONE FLAG 
#IE,RXCS :DISABLE FURTHUR DXO INTERRUPTS 


DIDUN: FIN 
@<IE'DM1>, RCS 


;TRY TO FAKE DRIVE TO GO "Sort. 76 SEC 26 


on _ 


B 8 
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CVKDAD.P11  14=JUL-80 16:36 INTERRUPT HANDLER SEQ 0092 
4183 
4184 
4185 fF RMAAAAAAAAAAAARAAAAAAAEAEAAAAEAAAAARARAAAAHAHRERAAAAAAAAARAAAAAETS 
; HANDLER TO FILL THE DRIVE BUFFER FOR DXx1 
4187 *® POINT TO THE WRITE SECTOR HANDLER. 
4188 SF RRAAARRERAHAAAEAAAAAHAAAAAAHEKAKARARAREREAKAAKARARAERAHAAAAAHEES 
4189 
4190 017102 010246 DIFBUF: MOV R2,°(SP) : SAVE 
4191 0171046 012703 000100 MOV #160,R3 “WORD CT 
4192 017110 013701 003036 MOV DITRK,R1 
4193 017114 000301 SWAB ORT 
6194 017116 053701 003040 BIS DISEC,R1 
4196 017122 005737 003510 TST COMP 1 :DONT SET BIT15 IN COMPATABILTIY TESTS 
4197 017126 001005 BNE 
4198 017130 005737 003512 TST COMP2 
4199 017134 001002 BNE 2$ 
aso 017136 052701 100000 BIS #B1T15,R1 -TO DISTINGUISH DX1 DATA FROM DX0 DATA 
4202 017142 012737 017204 015234 2$: MOV WDIWSEC,DIDISP ;POINT TO WRITE SECTOR AFTER RTI 
4203 017150 012737 000121 177170 MOV #<FBUF'IE!'DX1>,RXCS s ISSUE FILL BUFFER CMD 
4206 017156 010137 177172 MOV R1,RXDB :1°ST WORD = ADDRESS 
4205 017162 005303 DEC R3 
4206 017164 012702 003300 MOV #WCP,R2 ;GET TABLE ADDR 
4207 017170 012237 177172 1$: MOV (R2)+,RXDB 
4208 017174 005303 DEC R3 
4209 017176 001374 BNE 1$ 
4210 017200 012602 MOV (SP)+,R2 RESTORE 
4211 017202 000002 RTI 
18 
4214 SERRA AAA AEAAA AHA A AAA AEREE AAA AEAAAHEAEAERAAAAREAAA AAA 
4215 :HANDLER TO WRITE THE SECTOR FOR DX1 & POINT TO WRITE CHECK. | 
4216 SF RRAA RAR AAA AAAAAAAA AAT ARAK AAA AAAKAAAAKAAAKEAAAARHAAAAHARE ATE 
4217 
4218 017204 013701 003036 DiWSEC: MOV DITRK,R1 
4219 017210 000301 SWAB ORT 
4220 017212 053701 003040 BIS DISEC,R1 
4221 017216 010137 177174 MOV R1,RXSA ;LOAD TRACK & SECTOR ADDR 
4222 017222 012737 017240 015234 MOV MDIWCHK,DIDISP ;POINT TO WRITE CHECK HANDLER 
4223 017230 012737 000125 177170 MOV M<WSEC'IE'DX1>,RXCS s ISSUE WRITE SECTOR COMMAND 
4224 017236 000002 RTI 
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4226 SRRRRAHAAAAAATHHATA HAHAHAHA THAAKAAAAAAAAATATEKE HERA Kee ee eee Tees 
4227 HANDLER TO WRITE CHECK ON DX1. 
4228. ‘WILL GO TO tant wy 2 DO SAME SECTOR ON SOFT ERROR 
4229 :OR NEXT SECTOR ON NO ERROR OR HARD ERROR. 
4230 WILL GO TO READ SECTOR AFTER ALL SECTORS ON ioart ARE WRITTEN. 
423) iA RESTORE IS PERFORMED-AFTER ANY SEEK ERROR. (RN 
rt aghhanansbbanssasansancasnabenasnanabeaneeesaneaneeeneiial 
4 
4234 017240 005737 177170 DIWCHK: TST RXCS te 
4235 017244 100035 BPL 1$ 
4236 017246 023727 003034 000012 CMP DIERR,#10. ‘TO E $? 
4237 017254 001066 BNE 6$ :BR iF nNO TRY AGAIN 
4238 017256 004737 014062 JSR PC,LDIBAD ; LOAD Fane aa TABLE 
4239 017262 032737 ‘230020 015240 BIT MRNF ,SRXES ;SEEK ERROR? 
4240 017270 001417 BEQ 7 ;BR IF ‘o- 
4241 017272 004737 020612 JSR R7,SEKTST ;SEE IF REALLY ON RIGHT TRACK 
4242 017276 005737 003516 TST SEKFLG 
4243 0173502 001412 BEQ 7$ ;BR IF t¥ 
4244 017304 005037 003516 CLR SEKFLG ELSE CLR FLG 
4245 017310 104070 ERROR 70 SEEK ERROR WRITE SECTOR 
4246 017312 012737 017372 015234 MOV #2$,D1DISP TRET TO 2$ AFT RESTORE 
4247 017320 012737 000137 177170 MOV M<RESTORIITE!DX1>,RXCS 
Ses 017326 000002 RTI are 
4250 017330 104024 7$: ERROR 24 ;ERROR WRITE SECTOR 
“$23 017332 000417 R 2$ ;GO TO NEXT SECTOR 
4253 017334 005737 003034 1$: TST DIERR 7 ANY yt ERRORS? 
4254 017340 001414 BEQ $ R NO 
4255 017342 005237 031434 INC TSERR ‘TOTAL SOFT ERR CT 
4256 017346 005237 031440 INC PSERR :PASS SOFT ERR CT 
4257 017352 005737 003516 TST SEKFLG SEEK ERROR? 
4258 017356 001404 BEQ $ ;BR IF NO 
4259 017360 005037 003516 CLR SEKFLG 
4260 017364 104071 ERROR 71 ;SEEK ERROR WRITE SECTOR 
4261 017366 000401 R 2$ 
aSes 017370 104025 8$: ERROR 25 ;ERROR WRITE SECTOR 
4264 017372 005037 003034 2$: CLR DIERR 
4265 017376 004537 020532 JSR R5 ,NXTSEC ;CALC NEXT SECTOR 
4266 017402 003040 ~ DISEC 
rt 017404 137 017102 4$: D1F BUF ;G0 TO FILL BUFFER & DO ANOTHER 
4269 017410 012737 000001 003040 5$: MOV #1,D1SEC ALL SECTORS DONE...CHECK DATA 
4270 017416 005037 003034 CLR DIERR 
4271 017422 005037 003042 CLR DICMER 
ra 017426 000137 017470 JMP DIRSEC ;GO TO READ SECTOR HANDLER 
4274 017432 005237 003034 6$: INC DIERR 
4275 017436 032737 000020 015240 BIT #RNF ,SRXES SEEK ERROR? 
4276 017444 001757 BEQ :BR IF NO 
4277 017446 004737 020612 JSR KTST ;SEE IF ON TRACK 
4278 017452 012737 017102 015234 MOV ROteBUF DIDISP :RET TO PILL BUFF AFT RESTORE 
4279 017460 012737 000137 177170 MOV P<RESTOR' 1E!DX1>. RXCS 
4280 01 000002 RTI 
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003036 


003040 
177174 


* 017524 


000127 


177170 
003034 


003034 
000020 


020612 


017470 
000137 


014062 
000020 


020612 
003516 


003516 


020520 
000137 


000010 
003052 
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020520 


006012 


015234 
177170 
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INTERRUPT HANDLERS SEQ 0094 


SF RRAAAAAAAAAAAAREAAAAAAAAHAAHKAAATAHEARAEHAAAAAAAAAAARATAAAAAAAAAAEE 


;HANDLER TO READ A SECTOR ON DX1 & POINT TO CHECK. 


SF RMARAAAARERAEAAAAAAAAARETAAAAAAAARAAAARAAAARARAAAKAKAAAAAAAAA AAS 


DIRSEC: MOV DITRK,R1 
SWAB R1 
BIS DISEC,R1 
MOV R1,RXSA ;LOAD TRK & SECTOR ADDR 
MOV #DIRCHK,DIDISP ;POINT TO READ CHECK HANDLER 
att M<RSEC!IE!DX1>,RXCS ; ISSUE READ SECTOR COMMAND 


SRR ORRA RRR RAR REH REE ATH ATER TATTARAARAHAARERAAARHEKREEEAARET EET 
;HANDLER TO READ CHECK ON DX1. 

;WILL GO TO NEXT SECTOR/TRK IF HARD ERROR. 

;WILL GO TO EMPTY BUFFER IF NO ERROR OR SOFT ERROR. 

;WILL GO TO READ SECTOR (SAME) ON ERROR. 

;A RESTORE IS PERFORMED AFTER ANY SEEK ERROR (RNF). 


SF RRAAAAAAARARAAAAEAEAAAAARAAAAAAAAAAAAAAARAERERAARARAAEREREAAAREES 


DIRCHK: TST RXCS ERROR? 
BPL 1$ NO 
CMP DIERR,#10. . 40 ERRORS? 
BEQ 3$ “BR IF YES 
INC DIERR “ELSE TRY AGAIN 
BIT #RNE ,SRXES “SEEK ERROR? 
BEQ DIRSEC “BR IF NO 


JSR R7,SEKTST ;SEE IF ON TRACK 


MOV #DIRSEC,DIDISP ;ELSE DO RESTORE & RET TO RD SEC 
MOV #<RESTOR'IE'DX1>.RXCS 
RTI 
3$: JSR PC,LD1BAD :LOAD BAD TRK/SEC TABLE 
BIT WRNF ,SRXES ;SEEK ERROR? 
BEQ 7 :BR IF NO 
JSR R7,SEKTST sSEE IF REALLY ON RIGHT TRACK 
TST SEKFLG 
BEQ 10% :BR IF it 
CLR SEKFLG sELSE CLR FLG 
ERROR 72 ;SEEK ERROR READ SECTOR 
MOV #DINEXT,DIDISP - RESTORE 
MOV M<RESTOR'IE'DX1>,RXCS 
RTI 
7$: BIT #CRC,SRXES ;CRC ERROR? 
BEQ 10$ “BR IF NO 
INC 1CRC sELSE SET a. 
ERROR 111 sHARD CRC ERR 
7 GO TO EMP BUF F TO CHK DATA 
10$: LR DICRC 
ERROR :HARD READ ERROR 


6 
JMP DINEXT 
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1$: 


9$: 
2%: 


———ae me mm ee oo a e  - 


SEQ 0095 


; ANY y ERRORS? 


>BR NO 
;TOTAL SOFT ERR CT 
;PASS SOFT ERR CT 


; SEEK ERROR? 
BR IF NO 


;SEEK ERROR READ SECTOR 
;SOFT ERROR READ SECTOR 


:GO0 TO EMPTY BUFFER 


m, 


S RRA RRRReR ERA H REE RHH THAT HEATH TAT AKA RAK TAKA A eee eA ete e AeA eee ee Tet 
; HANDLER TO EMPTY THE DRIVE BUFFER FOR DX1 
;& POINT TO THE CHECK DATA HANDLER. 


PP eeeeeanaeeeeeetteeeeeeeeereeeereKeReaeeaeneeKeneaneetarerererese 


DIEBUF : 


1$: 


MOV 
MOV 


#<EBUF ! [E! 
RXDB, (R1)+ 
R3 


1$ 


D 
D 


I 
x 


S 
1 


P 
> 


»RXCS 


CT 


; WORD 
‘BUFFER ADDRESS 


;POINT TO CHK DATA AFT INTER. 
: ISSUE EMPTY BUFFER CMD 
:GET WORD & STORE IT 


ee ee rr ee ee em eee oe ee 
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CVKDAD.P11 —- 14=JUL-80 16:36 INTERRUPT HANDLER SEQ 0096 
4371 SARAH HRKHARAKTHKeTeKe eee eee eee ee eeeeteeeeneeeKeReeeeeKereeeeetes 
4372 ; HANDLER TO CHECK DATA AFTER EMPTY BUFFER CMD ON DX1. 

4373 WILL GO TO NEXT SECTOR HANDLER WHEN NO ERR OR HARD ERR. 
4374 [OR TO READ SECTOR (SAME) WHEN SOFT ERR. 

4375 THIS ROUTINE IS ALSO ENTERED FROM A CRC ERROR FROM A READ COMMAND. 
4376 S RARAHAAHAAHEREAEHHAAAAAAAA AAA HEAERAHAReKAHeAHAAHHeTHA HARA eT Hee 
4377 

4378 020010 005037 003042 DICDAT: CLR —-DICMER 

4379 020014 012703 000100 MOV =: #100, R3 WORD CTR 

4380 020020 012704 003276 MOV = #WCP=2,RG GET TABLE ADDR 

4381 020024 013701 003036 MOV —sITRK, RI 

4382 020030 000301 SWAB RT 

4383 020032 053701 003040 BIS _ D1SEC,R1 

4385 020036 005737 003510 TST COMP 1 ;DONT SET BIT15 IN COMPATABILITY TESTS 
4386 020042 001005 BNE 68 

4387 020044 005737 003512 TST COMP2 

4388 020050 001002 BNE 68 

4389 020052 052701 100000 BIS  - #BIT15,R1 ;T0 DISTINGUISH DX1 DATA FROM DXO DATA 
4391 020056 012702 003054 6$: MOV —s- #D1BUF ,R2 ;GET BUFFER ADDR 

4392 020062 020112 CMP R1,(R2) ;1'ST WORD COMPARE Ok? 
4393 020064 001414 BEQ Sts :BR IF YES 

4394 02 010137 003046 MOV —s- R11, DIEXP ELSE SAVE 

4395 020072 011237 003050 8$: MOV (R2) ,DIREC 

4396 020076 005237 003042 INC — DICMER 

4397 020102 000414 BR 3$ 

4399 020104 021412 1$: CMP (RG), (R2) ;COMPARE ALL REST 

4400 020106 001403 BEQ Sts :BR IF OK 

4401 020110 011437 003046 MOV (R4) ,DIEXP SELSE SAVE 

4402 020114 000766 BR 8$ 

4404 020116 005303 2$: DEC R3 

4405 020120 001405 BEQsi(‘é‘é3S 

4406 020122 062702 000002 ADD —s- #2, R2 

4407 020126 062704 000002 ADD ss #2, RG 

4408 020132 000764 BR 1$ 

4410 020134 005737 003042 3$: TST —DICMER ANY COMP ERR? 

4411 020140 001413 BEQ 4S :BR IF NO 

4412 020142 005737 003052 TST = DICRE HERE FROM CRC ERROR? 
4413 020146 001402 BEQ «148 :BR IF NO 

4414 020150 104112 ERROR 112 DATA CRC ERROR 

4415 020152 000423 BR 5$ : 

4416 020154 023727 003044 000012 148: CMP  DICERR,#10. ELSE, 10 ERRS YET? 
4417 020162 001025 BNE 7$ :BR IF NO 

4418 020164 104030 ERROR 30 ;HARD ERROR DATA COMP 
4419 020166 000415 BR 5$ 
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INTERRUPT HANDLERS 


4$: 


15$: 


c¢: 


7$: 


DICERR 
DIRSEC 


;HERE FROM CRC ERROR? 
ERC ERR WITH DATA OK 
;ANY ERR? 

; TOTAL SOFT ERR CT 


;PASS SOFT ERR CT 
;SOFT ERROR DATA COMP 


;READ SECTOR OVER AGAIN 


RRA RRRR AREER AREA RATE ARTE ATTA TAHA ETAT AEA AAA RAAT AAA TAA ARE 
;HANDLER TO SETUP NEXT SECTOR/TRACK FOR DX1. 

;WILL GO TO READ SECTOR (NEXT) IF ALL SECTORS ON TRACK NOT DONE. 
sWILL GO TO FILL BUFFER (NEXT TRACK) IF ALL SECTORS ON TRACK DONE. 
;WILL SHUT OFF DRV INTERRUPTS IF ALL TRACKS DONE, WITH A MESSAGE. 


SARA AAA AAAEAAEAEAAAAAAAEAAAATERERAARAAAAAAAAAAAAAAAAAAAAAEAAE EAS 


DINXT1: 


2$: 
3$: 


6$: 


4$: 


7$: 


CLR 
CLR 


DIERR 
DICMER 
RS ,NXTSEC 


DIRSEC 


~ PC, CHKCON 
$ 


6 
#BIT12,aSWR 
6$ 

,DRV1 

, TRK 
DITRK,-(SP) 
,DUN 

FIN 

DITRK ,MAXTRK 
4$ 

DITRK 
#1,DiSEC 

5$ 
a 
#BIT12,aSWR 
7$ 

,DRV1 


;CALC NEXT SECTOR 
;GQ READ SECTOR 


;CHECK IF CONSOLE PRESENT 
;RET HERE IF NOT 
;SKIP TYPEOUT IF NOT SET 


>; SAVE DITRK FOR TYPEOUT 
::G0 TYPE--DECIMAL ASCII WITH SIGN 


;SETUP TO GO TO Dx0 
>LAST TRACK? 

>BR IF YES 

:BUMP TRACK 

; INIT SECTOR 


;CHECK IF CONSOLE PRESENT 
;RET HERE IF NOT 
:SKIP TYPEOUT IF NOT SET 


;PATT DONE FLAG 


SEQ 0097 


erm - a rm ee a ee ee me 


; 
eee eee a ee te 


' 
Oe ee ee 
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042737 000120 177170 
000002 


005037 


000002 


023727 
001647 
000736 


027527 


000420 
027527 
001003 
012735 
000411 
027527 


000402 


062705 
000205 


003034 


003032 
012624 
010000 
021577 


000120 


003476 


000000 
000002 


000000 
000005 


000000 
000003 


000006 


003504 


160446 


177170 


000001 


000031 


000032 


000030 
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INTERRUPT HANDLERS 


5$: BIC 
RT] 


SEQ 0098 


M<IE!DXi>,RXCS ;DISABLE DX1 INTERRUPTS 


WEARBRBRBRBRABSAARASAASAARARSAARLARRARARARARARRARRRR RRR RRARR RAR RRARARAD ADS SO | 


“HANDLER TO SETUP TO GO TO NEXT RANDOM TRACK/SECTOR FOR DX1. 


SF RRAAAAAAAAAAAAAAHAAAATAAKAKAAAAAARAEKAAAAAHeRAAAKAKeEKeReAAeTee 


DINXT2: CLR 
LR 


1$: BIC 


DINEXT: 


DIERR 


DICMER 

FIN ;SETUP TO GO TO Dx0 

DICNT 

DICNT ,MAXSK :DID ALL SEEKS? 

1$ ;BR IF NO 

PC,CHKCON sCHECK IF CONSOLE PRESENT 
1 ;RET HERE IF NOT 

* leone :SKIP TYPEOUT IF NOT SET 
,DRV1 


, RANDOM 


,DUN 
M<IE!DX1>,RXCS ;DISABLE DX1 INTERRUPTS 


DXTST,#1 
DINXT1 
DINXT2 


S FRAME AAAAAAAARAAAAATAAAAAAAEAAAATAARAATAAAARARARAAAAKARAA HAKATA RAAT S 


“ROUTINE TO DETERMINE NEXT SECTOR FOR INTERLEAVING 


SF RRAAAAHAAAAKAATAAAAAAATAAAKAAAAAAAKAKAAAKARAAAAAKAAeKeRAAAA TALES 


NXTSEC: CMP 
B 
2$: CMP 


3$: ADD 
4$: RTS 


sARG IS DOSEC/DISEC 
;BUMP RET ADDR 


+ nha 
#2,a(R5)+ 
4$ 


a0(R5) , #32 
2% 
#3,a(R5)+ 
4$ 


a0(R5) , #30 
3$ 
#3,a(R5)+¢ 
4% 


+ al :SKIP ARG, JMP DOF BUF /D1F BUF 


' 
’ 
we re rw we ee em ee em eee. we oe e+ = - 0 eee 


CVKDAD 
CVKDAD 


P11 


020612 


020704 


020706 
020712 


PoTli- he EXERCISER 
16:36 


14-JUL-80 


005037 
04 


000240 
032737 


000753 


005237 
000207 


003516 
013632 
000020 


000031 
000004 


003516 


177170 


177170 


177172 
177174 
177174 
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INTERRUPT HANDLERS SEQ 0099 


RHR eReeeReeeReeee Re ee Te Te eeeeeeKeeeKeReeeeeeeeteneeeeeeeerere 
ROUT INE TO READ MANY + ebb ch ON A GIVEN TRACK 

IF G T'S ASSUMED THE HEAD IS ON THE WRONG TRACK & SEKFLG SETS. 
IT'S ASSUMED THE INITIAL ERROR WAS 
“ DUE TO READ HEADER ERROR & SEKFLG CLEARS. 

dene. ROUTINE PERFORMS IN FLAG MODE. 


SARA AARAHEREAHHAAAAHA AHA AAEAAAAAAAAAAAAAAAAAAAAREHAAARAAEARAEAES 


SEKTST: CLR SEKFLG 
BIC MIE,RXCS ;TURN OFF INTR ENABLE 
CLRB RXSA ;SET UP CURRENT TRK WITH SECTOR 1 
INC RXSA 
4$: BIS MRSEC,RXCS ; ISSUE READ SECTOR 
JSR RS, TIMER2 ;WAIT FOR DISK DONE 
RXCS 
DONE 
ERROR 131 ;NO DONE 
NOP 
BIT #RNF ,RXES ;RNF ERROR? 
BEQ $ BR IF NO 
CMPB #31,RXSA ;LAST SECTOR? 
BLE 3$ ;BR IF YES 
ADD + ;ELSE TRY NEXT SECTOR 


2$: RTS 


ee eee.cc82e 6... 


| 

| 

BR 

3$: INC sere ;SET SEEK ERROR FLAG 
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020714 
020720 
020724 
020726 


020732 
0 


020756 
020760 
0 


20764 


021014 


021016 
021022 
021026 


/ , 


PoTi1- te EXERCISER 
6:36 


14-JUL-80 1 


005037 
104401 
000000 
004737 


005037 


100375 


004537 
000007 


005737 


000776 
005037 
004537 
002604 


004537 
000025 


. .- 7 


003506 
023025 


021234 
021226 


177170 
021304 
177170 
021226 
021226 


021226 
021344 


0213504 
177170 


021226 
021226 


, ¥ , 4 


000012 


000012 
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INTERRUPT HANDLERS 


MARBARABLALALAAALALASELALSARARAARARARAARARARA RAR RRR RR AAA ARRAS DADS A | 


tHe FOLLOWING CODE, UP TO THE PROGRAM MESSAGES, 


IS A UTILITY TO COPY 


THE DISKETTE CONTAINING ONLY THE BOOT & THE jEXERCISER FROM DXO TO DXx1. 


ENTIRE CODE, 


MITITITITITITITITITITITITIIITILILTLIL LTTE TLL LLL 


COPY: 


2$: 


3$: 


COPFLG 


YPE ,COPMSG 

HALT 

JSR PC,GETSEC 

CLR ERFLG 

MOV #1, TRACK 

MOV #1,SECT 

TSTB RXCS 

BPL 74 

JSR R5,RDWR 

— RSEC 

TST RXCS 

BPL $ 

INC ERFLG 

CMP ERFLG,#10. 

BNE 1$ 

ERROR 100 

HALT 

BR 72 

CLR ERFLG 

JSR R5,EBUFF 
DOBUF 

JSR R5,RDWR 
<WSEC'DX1> 

TST RXCS 

BPL 4$ 

INC ERFLG 

CMP ERFLG,#10. 

BNE $ 

ERROR 101 

HALT 

uk 


E—E 'P’ TO 00 — COPY 
INCLUDING TEXT & ERROR TABLE, 


IS 400(10) WORDS. 


;DONT NEED FLAG ANY MORE 

; INSERT SCRATCH IN DX1 & TYPE P 
:WAIT FOR PROCEED 

;CALCULATE MAX SECTORS TO BE COPIED 
; INITIALIZE 


;DONE? (CTL RDY) 
;BR IF NO & TRY AGAIN 


;READ Dx0 


: ERROR? 

;BR IF NO 

:10 ERRORS 

“BR IF NO é TRY AGAIN 
sHARD ERR READ SECTOR Dx0 


;FORCE A RESTART FROM 250 


;EMPTY BUFFER INTO DOBUF 


;WRITE DX1 


: ERROR? 
:BR IF NO 


;10 ERRORS? 

;BR IF NO & TRY AGAIN 
;ERROR WRITE SECTOR 
FORCE RESTART AT 250 


, ‘ 
, a » - 


SEQ 0100 


mm me et 
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021142 


021146 
021154 
021156 
021164 


1 
021166 
021172 


021174 
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005737 


000776 
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001415 


023727 


000672 
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104401 
000000 
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000000 
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021226 
021226 


021344 


021406 
021224 
021224 


021232 
021232 


021230 
000001 


023124 
020714 


000012 


021222 


000032 


021232 
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4$: 


5$: 


6$: 


8$: 


MAXSEC: 
SECCNT: 
ERFLG: 
TRACK: 
SECT: 


meer eee ee we ee ee. it” 
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CLR —s ERFLG 
JSR _R5,ROWR ;READ DX1 

<RSEC!DX1> 
TST —-RKCS ; ERROR? 
BPL 5$ BR IF NO 
INC —-ERFLG 
CMP = s«ERFLG, #10. 10 ERRORS? 
BNE 4$ ;BR IF NO & TRY AGAIN 
ERROR 103 SHARD ERR READ SECTOR DX! 
HAL 
AR .-2 ;FORCE 250 RESTART 
JSR ——_—«RS,, EBUFF EMPTY BUFFER INTO D1BUF 

D1BUF 
JSR PC, DATCHK ;COMPARE DOBUF WITH D1BUF 
INC SECCNT ;TOTAL DONE 
CMP = SECCNT , MAXSEC DID TOTAL # SECTORS? 
BEQSstséBS :BR IF YES 
CMP ss SECT, #32 ELSE DID WE DO LAST SECTOR ON TRACK? 
BEQSti‘éGSS :BR IF YES 
INC SECT SELSE BUMP & DO ANOTHER 
He i$ > ‘ 
INC TRACK ;BUMP TRK 
MOV so #1, SECT INIT SECTOR 
BR 1$ :& DO ANOTHER 
TYPE =, COPDUN DONE MSG 
HALT 
JMP COPY ;D0 AGAIN IF 'P* TYPED 
0 ;TOTAL # SECTORS TO READ FROM DXO 
0 STOTAL # SECTORS WRITTEN TO Dx! 
0 
0 


SEQ 0101 


LS a 
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021272 


021276 
021302 


B 


WRN — 


PE AAA AAAS 
VOSENVONAVO 
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012700 


042700 
000300 
006300 
006300 


062700 
062700 
010037 


005037 
000207 


013700 


000205 


032276 


000377 
000377 


000074 
000032 


021222 


021224 


021230 


021232 
177174 
177170 
013632 
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INTERRUPT HANDLERS 


SEQ 0102 


SRAAAAAAAAAAAAAAAEEAAARAARAA AE EEEAAAAAARERAEAAAAAAAAAAARERATAA AES 


:ROUT INE TO CALCULATE THE MAX # OF SECTORS TO READ FROM Dx0 


SRAAAAAAAAARAAAEAEREEAAARAAAAEEAAAAAEAAAEAAAAAAAAAAEAETEHRERANRANS 


GETSEC: MOV 
ASR 


CLR 
RTS 


#LSTAD,RO 
RO 


RO 
#377 ,R0 
#377,R0 


RO 
RO 
RO 


#<15.*4>,R0 
#2 0 


RO ,MAXSEC 


SECCNT 
PC 


:GET MAX ADDR 
:GET WORD CT 
:DONT LOOSE ANY 


;ROUND OFF TO NEAREST WHOLE WORD 


;DIVIDE-BY 100(8) FOR SECTOR CT. 


;ADD SECTOR CT FOR BLOCKS U0 = 14 OF DXx0 
;FACTOR TO TAKE CARE OF RT=-11 SECTOR MAPPING 


; SAVE 
:THIS IS THE MAX SECTORS WE WILL READ OFF DXxO 
*® WRITE TO DX1 STARTING AT TRK 1, SECT 1 
;COUNT OF TOTAL SECTORS WRITTEN TO DXx1 


SRR AAA AAARE RARER ATA A AREA ATA A AAA AA RARAAAAARAA AAA AANA ATES 


ROUTINE TO READ OR WRITE DXO OR DX1 
:R5 POINTS TO THE COMMAND & DISK # 


SRERRERERAAAAERAAE EAE A AAA AA AAA AAA AERA AAAAAA AAA AAA EA THEE 


RDWR: 


TRACK, RO 
RO 


RS, TIMER2 


124 
R5 


sLOAD TRK/SEC 
; ISSUE COMMAND 
:WAIT FOR DONE 


:NO DONE 


mm mm 


H 8 wee. \ eh 
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46 

4691 sRReeeeARRARARHEKAAATAKAEKAAEKTAAAAAAeeHe He KAA AeeAeAATeeeeA Tete 
4692 : ROUTINE TO EMPTY BUFFER INTO DOBUF OR D1BUF 

4693 -R5 POINTS TO IT 

4694 POT TITI ITT ITITITITITT TIT TII TTI ITITIT TTT i iti irri 
4695 

4696 021344 012700 000100 EBUFF: MOV #100,R0 ;WwD CT 

4697 021350 012501 MOV (R5)+,R1 ;BUFFER ADDR 

4698 021352 012737 000003 177170 MOV #EBUF ,RXCS ; ISSUE EMPTY BUFFER COMMAND 
4699 021360 013721 177172 1$: MOV RXDB,(R1)+ PUT IT IN TABLE 

4700 021364 005300 DEC RO 

4701 021366 001374 BNE 1$ 

4702 021370 004537 013632 JSR R5,TIMER2 ;WAIT FOR DONE 

4703 021374 177170 RXCS 

4 021376 000200 NONE 

4705 021400 104125 ERK R 38125 :NO DONE 

4706 021402 000000 HALT 

4707 021404 000205 RTS R5 

4708 

4709 

4710 SRR ARAAAAATAAAAAAAAAA THAT ERC ARERR ERE KHER AeA AeAeAteeKKeeHee 
4711 ROUT INE TO COMPARE DOBUF WITH DIBUF 

4712 See eRe AAAARAAAAAAAAAAAAAAARETEAAAAARAE ERE E AKA AAee eee AAA ATA 
4713 

4714 021406 012700 000100 DATCHK: MOV #100,R0 ;WD CT 

4715 021412 012701 002604 MOV #DOBUF ,R1 

4716 021416 012702 003054 MOV #D1BUF ,R2 

4717 021422 02 1$: CMP (R1)+, (R2)+ ; COMPARE? 

4718 021424 001403 BEQ 2$ “BR IF YES 

4719 021426 104102 ERROR 102 :MISCOMPARE 

4720 021430 000000 HALT 

“553 021432 000776 BR -2 

4723 021434 005300 2$: DEC RO 

4724 021436 001571 BNE 1$ 

4725 021440 000207 RTS PC 


CVKDAD 
CVKDAD 
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021442 


023261 
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041600 
052200 


052200 


oOooo°oo°o 
Vn & viv 


oOooeoeo 
ARRAS 
Ooo & OW“ QWUININNMNONO— 


MWUINUNINPIN | —-O-"COVi ln FS OOWNWUWNUML use 


OQooocow + to % 4 


FARREAEERSARAGAAGRE BARS 


© 
wn 
ron 


M—nrNO —~—s ms OY =n — 


=f 


Dt FOP OS Ss YY 
SIO NUS 


— tO os ot BONY OO 


AN eee 


Agate 
Sou we 


4 
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INTERRUPT HANDLERS SEQ 0104 


-SBTTL PROGRAM MESSAGES 


SERRA AAAAAAAAARARAAAARERAARAAEAAAAAAAARAARAAAAAAAAAAAARAAAAAA AREAS 


; MESSAGES & ERROR FORMATS 


SE RAAAAAAAARAAAAAARAAAAEAA AERA AAAAAAAAAAAAAAARAARAAAAAARAAAAAARARAAAS 


-NLIST BEX 

052123 CLOPT: .ASCIZ <CRLF>/CLUSTER OPTION/ 
020115 CLT1: .ASCIZ <CRLF>/TERM #1/ 
046522 CT2: eASCIZ <CRLFD>/TERM #2/ 
020115 CLTS3: eASCIZ <CRLFD>/TERM #3/ 
041516 SCOM:  .ASCIZ <CRLF>/SYNC COMM/ 
041516 ACOM: eASCIZ <CRLF>/ASYNC COMM/ 
052116 PRINT eASCIZ <CRLF>/PRINTER/ 
052122 PORT eASCIZ / PORT TESTED/ 

000 DRVO eASCIZ <CRLF>/DXO/ 
000061 ODRV1 eASCIZ <CRLFD>/DX1/ 
020114 BUFTST: .ASCIZ <CRLF>/FILL & EMPTY BUFFER/ 
047116 NOCON: .ASCIZ <CRLF>/RUNNING WITH NO CONSOLE IS SELECTED/ 
045503 CLOCK: .ASCIZ <CRLF>/CLOCK/ 
026523 EISTXT: .ASCIZ <CRLF>/EILS-FIS OPTION/ 
046505 MEM: eASCIZ /K MEMORY PRESENT/ 
043517 DEFBD eASCII <CRLF><LF>/PROGRAM DEFAULTS (UNLESS MODIFIED):/ 
052514 ASCII <CRLF>/ CLUSTER @ 2400 BAUD/ 
047111 ASCII] <CRLF>/ PRINTER &@ 9600 BAUD/ 
047131 .ASCIZ <CRLF>/ SYNC & ASYNC COMM PORTS @ 9600 BAUD/ 
020124 NOTPRES: eASCIZ / NOT PRESENT/ 
042523 WARNING: ASCII <CRLF><LF>/INSERT SCRATCH DISKS, TYPE ‘P* FOR NORMAL TESTING/ 
030064 <CRLF>/'240G° FOR NORMAL RESTARTS/ 


043460 <CRLF>/°250G* TO COPY SYS EXERCISER DISK/ 
043460 <CRLF>/°260G' FOR COMPATABILITY PASS 1: WRI‘E/ 
030067 <CRLF>/'270G* FOR COMPATABILITY PASS 2: READ/ 
044524 / TESTING DROPPED/ 
047116 / RUNNING/ 
/ OK/ 

00 / TRK/ 

04 / DATA PATT/ 





/ RANDOM SEEKS/ 
<CRLFD>/EIS-FIS TESTS/ 
a TESTS/ 


DONE 
<CRLF><LF>/PASS @ / 
<CRLF>/SERIAL NO. = / 
mest, 4 my PASS #@/ 


TOTAL ERRORS: / 
<CRLF>/ TOTAL SOFT ERRORS: / 
<CRLF>/ TOTAL ERRORS THIS PASS:/ 
<CRLF>/ SOFT ERRORS THIS PASS:/ 


<CRLF>/COPY DXO TO OXx1/ 

<CRLFE>/INSERT SCRATCH DISK IN Dki, TYPE *P* TO PROCEED/ 
<CRLF>/DONE...TYPE ‘P* TO DO AGAIN OR °260G" FOR NORMAL TESTING/ 
<CRLF><LF>/COMPATABILITY PASS 1 (WRITE) DONE/ 

<CRLF>/DO *P* FOR PASS 2 (READ)/ 


‘ 
Pe eg Pg te Pg Pg Pg Pd Pg Pd Pg Pd Pd Pd Pe Pd Ps Ps Ps Ps Pd 2 


SOLPSSSSELESSSES 


—_——— - en _ -_— —_—— ~_ -_—-> —— 
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023313 042504 046 eASCIZ <CRLFD>/DEVM = / 
$5 $24 ou2sis EE O54 -ASCIZ /MEMORY TIMEOUT/ 
02 : 115 $3 5 2 -ASCIZ /MEM DATA COMP ERR/ 
02336 123 0467131 3 eASCIZ NC COMM DID NOT RECEIVE SYNC CHAR/ 
023431 120 044522 052 -ASCIZ /PRINTER STATUS ERR/ 
023454 042524 0465 021 ASCIZ M #1 DATA COMP ERR/ 
023502 042524 Rees 021 eASCIZ /TERM #2 DATA COMP ERR/ 
023530 042524 65 021 -ASCIZ /TERM #3 DATA COMP ERR/ 
023556 051501 047131 020 ~ASCIZ /ASYNC COMM DATA COMP ERR/ 
023607 $3 047131 0 -ASCIZ /SYNC COMM DATA COMP ERR/ 
023637 125 ett 0 -ASCIZ /UNEXP DISK INTERRUPT/ 
023664 054104 020060 04 -ASCIZ /DXO HARD ERR - WRITE SECT/ 
023716 054104 020060 04 -ASCIZ /O0X0 SOFT ERR = WRITE SECT/ 
023750 054104 genes 04 -ASCIZ /DX0 HARD ERR = READ SECT/ 
024001 104 030130 05 -ASCIZ /DXO0 SOFT ERR = READ SECT/ 
024032 054104 020060 04 -ASCIZ /DXO0 UNRECOV ERR = DATA COMP/ 

4066 054104 020060 05 -ASCIZ /DXO0 ERR = DATA COMP/ 
024112 054104 020061 04 -ASCIZ /DX1 HARD ERR = WRITE SECT/ 
024144 054104 020061 04 -ASCIZ /0X1 SOFT ERR = WRITE SECT/ 
024176 054104 02 04 eASCIZ /DX1 HARD ERR = READ SECT/ 
024227 104 030530 05 -ASCIZ /DX1 SOFT ERR = READ SECT/ 

4260 054104 020061 04 -ASCIZ /D0X1 UNRECOV ERR = DATA COMP/ 
024314 054104 02 05 -ASCIZ /DX1 ERR = DATA COMP/ 

4340 046103 020113 05 eASCIZ /CLK HUNG/ 
024351 120 044522 05 -ASCIZ /PRINTER HUNG/ 

4366 042524 046522 02 eASCIZ /TERM #1 HUNG/ 
024403 124 051105 02 eASCIZ /TERM #2 HUNG/ 
024420 seed {5 4H 2 ¢ eASCIZ /TERM #3 HUNG/ 
024435 123 047131 -ASCIZ /SYNC COMM HUNG/ 
024454 051501 047131 02 -ASCIZ /ASYNC COMM HUNG/ 
024474 054104 020060 05 :  .ASCIZ /DX0 HUNG/ 
024505 104 030530 0440 : .ASCIZ /DX1 HUNG/ 
024516 054523 041516 04 : ,ASCIZ /SYNC COMM = DATA NOT AVAIL NOT SET/ 
024561 123 047131 02 : .ASCIZ /SYNC COMM = RECVR ACTIVE NOT SET/ 
024622 054523 041516 04 :  .ASCIZ /SYNC COMM = RECVR DONE NOT SET/ 
024661 104 030130 0234 : eASCIZ /O0X0 ‘DEL DATA’ BIT 5S NOT SET IN RXES/ 
024726 054104 020060 04 :  .ASCIZ /DXO INIT CMD DID NOT READ TRK 1, SEC 1/ 
024775 104 030130 05 :  ,ASCIZ /0X0 RESTORE CMD ERR/ 
025021 104 030130 023440 : .ASCIZ /OX0 ‘INIT DONE’ BIT O NOT SET IN RXES/ 
02506 104 030130 051040 : .ASCIZ /O0X0 READ STATUS CMD ERR 
025117 104 030130 044440 : .ASCIZ /OX0 INV ADDR BIT 1 NOT SET IN RXES/ 
025162 054104 020060 051105 : .ASCIZ /DxX0 ERR BIT NOT SET IN RXCS/ 
025216 054104 be 0 047111 : .ASCIZ /OX0 INIT CMD ERR/ 
025237 104 030130 052440 :  ,ASCIZ /DXO UNRECOV SEEK ERR - WRITE SECT/ 
025301 104 030130 051040 : .ASCIZ /OX0 RECOV SEEK ERR - WRITE SECT/ 
025341 104 030130 052440 :  ,ASCIZ /O0X0 UNRECOV SEEK ERR - READ SECT/ 
025402 054104 0g 04 26 : eASCIZ /DXO REC EK ERR - READ SECT/ 
025441 104 0305 2 4 : eASCIZ /DX1 UNRECOV SEEK ERR - WRITE SECT/ 
025503 104 030530 051040 s .ASCIZ /OX1 RECOV SEEK ERR - WRITE SECT/ 
025543 104 030530 052440 EM49: -ASCIZ /DX1 UNRECOV SEEK ERR - READ SECT/ 
025604 054104 bene 042522 : ,ASCIZ /OX1 RECOV SEEK ERR - READ SECT/ 
025643 104 030530 abe EM51:  .ASCIZ /OX1 RESTORE CMD ERR/ 
025667 104 051511 020113 EMS2: ASCIZ /DISK ‘DONE’ NOT SET/ 
025713 106 046111 020114 EMSS: ASCIZ /FILL & EMPTY BUFF TEST... DATA MISCOMP/ 
069766 040504 040524 046440 EMS4: ASCIZ /DATA MISCOMP/ 
02577 122 050105 040514 EMSS: ASCIZ /REPLACE 0xX0...10 BAD SECTORS/ 


-_—_—_—_— rs ee i ee ee ——————— 
- as - _ - 
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026034 042522 046120 04 eASCIZ /REPLACE DX1...10 BAD SECTORS/ 
026071 104 030190 be 40 »ASCIZ /DXO HARD CRC ERR = READ SECT/ 
026126 054104 th 051120 eASCIZ /DOX0 PREV CRC ERR WITH DATA WRONG/ 
026167 104 0130 050040 eASCIZ /DXO PREV CRC ERR WITH DATA OK/ 
026225 104 030530 044040 -ASCIZ /OX1 HARD CRC ERR = READ SECT/ 
oc Oece 054104 Thee} 051120 -ASCIZ /DX1 PREV CRC ERR WITH DATA WRONG/ 
02632 104 030530 050040 eASCIZ /OX1 PREV CRC ERR WITH DATA OK/ 
026361 105 051511 043055 eASCIZ /EIS-FIS CONDITION CODE ERROR/ 
026416 044505 0265235 044506 eASCIZ /EIS-FIS DATA ERROR/ 
026441 105 051122 051117 OHI: ~ASCIZ /ERROR @ ERR PC/ 
26460 051105 047522 020122 C2: »ASCIZ /ERROR # ERR PC ADDR/ 
026504 051105 047522 020122 DH3: ASCIZ /ERROR # ERR PC ADDR EXPECT RECVD/ 
026546 051105 047522 020122 ODH4: ASCIZ /ERROR # ERR PC PR STATUS/ 
026577 105 051122 051117 DHS: ASCIZ /ERROR # ERR PC EXPECT RECVD/ 
026634 051105 047522 020122 DHé6: ASCIZ /ERROR # DXTST# ERR PC RXCS RXES RXSA/ 
026701 105 051122 051117 DH?: eASCIZ /ERROR # DXTST# ERR PC RXCS RXES TRACK SECTOR # RETRIE 
026770 051105 047522 020122 DH8: -ASCIZ /ERROR # DXTST# ERR PC RXCS RXSA EXPECT RECVD # RETRIES 


027062 ~EVEN 





27062 031430 001116 000000 DT1:  .WORD ERRNUM,SERRPC,O 

027070 031430 001116 005052 DT2: .WORD ERRNUM.$ERRPC,ADDR,O 
27100 031430 001116 005052 DT3: . WORD ERRNUM,SERRPC,ADDR,PAT,MEMHLD,0 

027114 031430 001116 014334 DT4: .WORD ERRNUM.SERRPC,.SPRS.O 

027124 031430 01116 014432 DTS: «WORD ERRNUM,.SERRPC,TICHR,TIHLD,O 

027136 031430 001116 014532 DT6:  .WORD ERRNUM,.S$ERRPC,T2CHR,T2HLD,O 

027150 031430 001116 014632 DT7: WORD ERRNUM,SERRPC,T3CHR,T3HLD,O 

027162 031430 001116 014732 DT8: WORD €, COMCHR, COMHLD ,0 

027174 031430 003476 001116 DT9:  .WORD N ST, SERRPC, SRXCS, SRXES, SRXSA,0 

027212 031430 003476 001116 DT10:  .WORD ERRNUM,DXTST,$ERRPC,SRXCS,SRXES.DOTRK,DOSEC,DOERR,0 
27234 031430 003476 001116 DT11:  .WORD ERRNUM.DXTST.SERRPC.RXCS,RXSA, DOEXP, DOREC, DOCERR,0 

027256 031430 003476 001116 DT12:  .WORD ERRNUM,DXTST,SERRPC,SRXCS,SRXES,D1ITRK,DISEC,DIERR,O 
27300 031430 003476 001116 DT13: -.WORD ERRNUM.DXTST,SERRPC.RXCS,RXSA,DIEXP,DIREC,DICERR,O 

027322 031430 003476 001116 DT14: .WORD ERRNUM,DXTST,SERRPC,RXCS,RXES,RXSA,0 

027340 031430 001116 007744 DT15:  .WORD ERRNUM,$ERRPC,EXPO,EBHLD.O 

027352 031430 001116 007746 DT16:  .WORD ERRNUM,SERRPC,EXP1,EBHLD,O 

027364 000000 DF .wORD 0 SOCTAL FORMAT FOR ALL 

027366 000000 "WORD O 

027370 000000 "WORD 0 

027372 000000 DF1:  . WORD O :OCTAL .OCTAL 

027374 000000 "WORD 0 “OCTAL -OCTAL 

027376 000400 “WORD 400 : DECIMAL, OCTAL 

027400 000401 “WORD 401 DECIMAL ,DECIMAL. 

027402 000000 DF2:  .WORD O :OCTAL,OCTAL 

027404 000000 “WORD 0 SOCTAL,OCTAL 

027406 000000 ‘wORD 0 -OCTAL,OCTAL 

027410 000400 "WORD 400 : DECIMAL , OCTAL 


-LIST BEX 
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001157 


000002 
000001 


000100 


027462 
030544 


000040 


000002 
000011 
000200 


027670 


027624 
001156 


001154 
000001 


027624 
027670 


001210 
001211 


001211 


MACY11 30A(1052) 


TYPE ROUTINE 
~SBTTL TYPE ROUTINE 


SRAARAAAAAAAAAEAEAEAAAAAAAAEEAEEAAARAAAAAARAAAAAAAAAAKEAAAAAAAAET 


: #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 if 
:eTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE 
*@ 


: *NOTE2: 
; «NOTES: 


SeCAL 
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FEED. 
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


#1) “USING A TRAP a 


‘eOR 


61$: 
62$: 


2$: 


60$: 
3$: 


4$: 


5$: 
6$: 


7$: 


YPE 


TYPE 
MESADR 


»MESAD 


STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
ee 
#APTSPOOL , SENVM 
62% 


RO,61$ 
PC ,SATYS 


0 

+ aaa 
(RO) +,-(SP) 

4$ 

(SP)+ 

(SP)+,RO 

#2, (SP) 

#HT, (SP) 
ACRLF, (SP) 


(SP)+ 


SCHARCNT 


2$ 
PC ,STYPEC 
oy AE Soe 


2 

SNULL ,-(SP) 
1($P) 

6$ 


PC ,STYPEC 
SCHARCNT 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


sT ye Hy TERMINAL ? 


YE 
: MALT MERE IF NO TERMINAL 


33 RO 
:;GET ADDRESS OF ASCIZ STRING 
; RUNNING IN APT MODE 
;NO,GO CHECK FOR “ ee 
; ; SPOOL MESSAGE TO A 
;:NO,GO CHECK FOR CON NSOL E 
::SETUP MESSAGE soos FOR APT 
++ SPOOL MESSAGE TO A 
;MESSAGE ADDRESS 
3 3APT CONSOLE SUPPRESSED 
>YES,SKIP TYPE OUT 
: = PUSH CHARACTER TO BE wee ONTO STACK 
::BR IF IT ISN'T THE TERMINATOR 
s3aF 5 ae ay POP IT OFF THE STACK 


; RESTOR 


E R 
Hog oe RETURN PC 
;;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
;; TYPE A CR AND LF 


;;CLEAR CHARACTER COUNT 

;;GET NEXT CHARACTER 

;:G0 TYPE THIS CHARACTER 

;;1S IT TIME FOR Ae CHARS .? 
;31F NO GO GET NEXT CHA 

;;GET # OF FILLER CHARS. “NEEDED 
;;AND THE NULL CHAR. 


BR 
;G 


BR IFN A NULL NEED TO BE TYPED? 


O TYPE A NULL 
‘10 NOT COUNT AS A COUNT 


rt POP THE NULL OFF OF STACK 


er ree we tee ee + eee 


SEQ 0107 
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CVKDAD.P11 14-JUL=80 16:36 TYPE ROUTINE SEQ 0108 
ry od 027576 000770 oh 7$ ;;LO0P 
4793 -HORIZONTAL TAB PROCESSOR 
4795 027600 112716 000040 8$: MOVB #" . (SP) : sREPLACE TAB WITH SPACE 
4796 027606 004737 027624 9$: JSR Pc $TYPEC ;; TYPE A SPACE 
4797 027610 132737 000007 027670 BITB #7.$CHARCNT ;;BRANCH IF NOT AT 
4798 027616 001372 BNE 9$ STOP 
4799 027620 005726 TST (SP)+ “IPOP SPACE OFF STACK 
4800 027622 000724 QR 2$ ::GET NEXT CHARACTER 
4801 027624 105777 151320 STYPEC: TSTB a$STPS ;:WAIT UNTIL PRINTER IS READY 
4802 027630 100375 BPL STYPEC 
4803 027632 116677 000002 151312 MOVB  2(SP),a$TPB -:LOAD CHAR TO BE TYPED INTO DATA REG. 
4804 027640 122766 000015 000002 CMPB ss WC, 2 (SP) ::1$ CHARACTER A CARRIAGE RETURN? 
4805 027646 001003 BNE 1$ ::BRANCH IF NO 
4806 027650 105037 027670 CLRB $CHARCNT ;;YES==CLEAR CHARACTER COUNT 
4807 027654 000406 me STYPEX scEXIT 
4808 027656 122766 000012 000002 1S: CMPB ss LF, (SP) “1S CHARACTER A LINE FEED? 
4809 027664 001402 BEQ STYPEX : “BRANCH IF YES 
4810 027666 105227 INCB ss (PC) + “= COUNT THE CHARACTER 
4811 027670 000000 SCHARCNT:.WORD 0 «= CHARACTER COUNT STORAGE 
4812 027672 000207 STYPEX: RTS PC 
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cats ~SBTTL TTY INPUT ROUTINE 
4816 SRMAHAHE HAHAHAHAHA A TATE Tee eT eee ee eKe teeta eteneretetererereee 
me HF -ENABL .SB 
4819 SRARRAAARARERHAHHHAAAT HAHAHAHA AREA AA HARE eAeeHAHeKetAKeeeKeRere 
4820 : ¢SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
4821 :*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILc 
4822 ;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
4825 -*WHEN OPERATING IN TTY FLAG MODE. 
4824 027674 022737 000176 001140 $CKSWR: CMP #SWREG, SWR ;:1S THE SOFT-SWR SELECTED? 
001114 BNE 15$ ;;BRANCH IF NO 
105777 151234 TSTB asTKsS +> THERE? 
100111 BPL 15$ sa TF NO, DON’ : — AROUND 
117746 =151230 MOVB a@$TKB,-(SP) :SAVE THE CHA 
042716 177600 BIC #0177, (SP) ISTRIP-OFF THE ASCII 
022 000007 CMP #7, (SP)+ ;;1S IT A CONTROL G? 
BNE 1 ;;NO, RETURN TO USER 
001134 000001 CMPB SAUTOB, #1 ;;ARE WE RUNNING IN AUTO-MODE? 
BEQ 15$ ;;BRANCH IF YES 
030506 TYPE »SCNTLG ;;ECHO THE CONTROL-G (“G) 
030513 SGTSWR: TYPE , SMSWR ;; TYPE CURRENT CONTENTS 
000176 MOV SWREG,-(SP) +s SAVE SWREG FOR TYPEOUT 
TYPOC O TYPE--OCTAL ASCIICALL DIGITS) 
030524 TYPE , SMNEW : BROMPT FOR NEW SWR 
19$: CLR -(SP) fe COUNTER 
CLR -(SP) THE NEW SWR 
0 151152 7$: TSTB asTKs ::CHAR THERE? 
robs 027772 100375 BPL 7$ :3;1F NOT TRY AGAIN 
4845 027774 117746 151146 MOVB a$TKB,-(SP) ;;PICK UP CHAR 
rr 030000 042716 177600 BIC ecr?, (SP) ;;MAKE IT 7-BIT ASCII 
4848 03 021627 000003 CMP (SP) ,#3 ;:1S IT A CONTROL-C? 
4849 030010 001015 BNE 9$ ;;BRANCH IF NOT 
4850 030012 104401 030474 TYPE , SCNTLC aT = CONTROL-C (“*C) 
4851 030016 2706 000006 ADD #6,SP ::CLEAN UP STACK 
4852 030022 123727 001135 000001 CMPB SINTAG,#1 tS REENABLE TTY KEYBOARD INTERRUPTS? 
4853 030030 1003 BNE 8$ ;;BRANCH IF NO 
4854 030032 012777 000100 151104 MOV #100,a$TKS ;;ALLOW TTY KEYBOARD INTERRUPTS 
nn 44 030040 000157 013126 8$: JMP GTSDEV ;;CONTROL-C RESTART 
4857 
4858 030044 021627 000025 9$: CMP (SP) ,#25 3:18 IT A CONTROL-U? 
4859 030050 001005 BNE 10$ ;;BRANCH IF NOT 
4860 030052 104401 030501 TYPE »SCNTLU ;:;YES, ECHO CONTROL) (“U) 
4861 030056 062706 000006 208: ADD #6,SP ;; IGNORE PREVIOUS INPUT 
4862 030062 0007357 BR 19% ;;LET'S TRY IT AGAIN 
4865 
4864 
4865 030064 021627 000015 10$: CMP (SP) ,#15 ;;1S IT A <CR>? 
4866 030070 001022 BNE 16% ;;BRANCH IF NO 
4867 030072 005766 000004 TST 4(SP) >;YES, IS IT THE FIRST CHAR? 
4868 030076 001403 BEQ 11$ ::BRANCH IF YES 
4869 030100 016677 000002 151032 MOV 2(SP) ,aSwR ;; SAVE NEW SWR 


em rm ce ee re rrr es ee a ee ww ee ee 


ee ee ee eee —~— <-- —_—s 
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4870 030106 062706 000006 11$: ADD #6,SP ;;CLEAR UP STACK 
4871 030112 104401 001165 14$: TYPE SCRLF >;ECHO <CR> AND < 
4872 030116 123727 001135 000001 CMPB SINTAG, #1 ;;RE-ENABLE TTY “bo INTERRUPTS? 
4873 030124 001003 BNE 15$ :;BRANCH IF NOT 
4874 030126 012777 000100 151010 MOV #100,a$TKS ; ;RE-ENABLE TTY KBD INTERRUPTS 
4875 030134 000002 15$: RT] ; ;sRETURN : 
4876 030136 004737 027624 16$: JSR PC, ,STYPEC ;;ECHO CHAR 
4877 030142 021627 000060 CMP (SP) , #60 ::CHAR < 0? 
4878 030146 002420 BLT 18$ ;;BRANCH IF YES 
4879 030150 021627 000067 CMP (SP) ,#67 ::CHAR > 7? 

030154 003015 BGT 18$ ;;BRANCH IF YES 
4881 030156 042726 000060 BIC #60, (SP)+ ;;STRIP-OFF ASCII 
4882 030162 005766 000002 TST 2(SP) :;1S8 THIS THE FIRST CHAR 
4883 030166 001403 BEQ 17$ ;;BRANCH IF YES 
4884 030170 006316 ASL (SP) ;;NO, SHIFT PRESENT 
4885 030172 006316 ASL (SP) = CHAR OVER TO MAKE 
4886 030174 006316 ASL (SP) ROOM FOR NEW ONE. 
4887 030176 005266 000002 17$: INC 2 (SP) : = KEEP COUNT OF CHAR 
4888 030202 056616 177776 BIS -2(SP), (SP) :;SET IN NEW CHAR 
4889 030206 000667 BR 7$ ::GET THE NEXT ONE 
4890 030210 104401 001164 18$: TYPE , SQUES >; TYPE ?7<CR><LF> 
4891 030214 000720 BR 20$ ;;SIMULATE CONTROL-U 
4892 .DSABL LSB 
4893 
4894 
4895 PRA ARe RARER RR KAA AKER AAAAATA AAA AAT AAA TTeAKATeAAAKeAKe Kee eee ee 
rr 4 oe ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

> *CALL: 

4898 ;* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
4899 ;* RETURN HERE ;; CHARACTER IS ON THE STACK 
4900 ;* ;;WITH PARITY BIT STRIPPED OFF 
4901 : 
4902 
4903 030216 011646 SRDCHR: MOV (SP) ,-<(SP) ; ;PUSH yy THE PC 
4904 030220 016666 000004 000002 MOV 4(SP),2(SP) ;;SAVE THE PS 
4905 030226 105777 150712 1$: TSTB asTKs ;;WAIT FOR 
4906 030232 100375 BPL 1$ :;A CHARACTER 
4907 030234 117766 150706 000004 MOVB asTKB,4(SP) ;;READ THE TTY 
4908 030242 042766 177600 000004 BIC #*°C<177> 4(SP) ;;GET RID OF JUNK IF ANY 
é 030250 026627 000004 000023 CMP 4(SP) #23 ::1S IT A CONTROL-S? 
4910 030256 001013 BNE 3$ :;BRANCH IF NO 
4911 030260 105777 150660 23: TSTB asTKs s:;WAIT FOR A CHARACTER 
4912 030264 100375 BPL 2$ ;;LOOP UNTIL ITS THERE 
4913 030266 117746 150654 MOVB @$STKB,-(SP) | ;:;GET CHARACTER 
4914 030272 042716 177600 BIC #°C177, (SP) — ::MAKE IT 7-BIT ASCII 
4915 030276 022627 000021 CMP (SP)+, #21 ::1S IT A CONTROL-Q? 
4916 030302 001366 BNE 2$ 3;1F NOT DISCARD IT 
4917 030304 000750 BR 1$ ;: YES, RESUME 
4918 030306 026627 000004 000140 3$: CMP 4(SP),#140 sie IT UPPER CASE? 
4919 030314 002407 BLT 4$ + sBRANCH IF YES 
4920 030316 026627 000004 000175 CMP 4(SP),#175 :1S IT A SPECIAL CHAR? 
4921 030324 003003 BGT 4$ ::BRANCH IF YES 
4922 030326 042766 000040 000004 BIC #40,4(SP) ;;MAKE IT UPPER CASE 
4923 030334 000002 4$: RT] ::GO BACK TO USER 
4924 sPReReReReeeeeeeeeee eee eee eee eee eeeedeteeteettereereeteeteteeerese 


4925 ;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
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CVKDAD. 


P11 
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030464 
030474 


000003 
030474 


013126 
000177 


001164 
030462 
030462 
000015 
177777 
001166 


000004 
030464 


000002 
000004 


000 
000012 
051127 
020127 
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;*CALL: 


SRDLIN: 
1$: 


2$: 


10$: 
4$: 
3$: 


9$: 


STTYIN: . 
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RDLIN 
RETURN HERE 


ASCIZ 
ASCIZ 


R3,-(SP) 
#STTYIN,R3 
al ais 


on cs (R53) 


5, (R5) 


Sewtt 
(SP)+,R3 


GTSDEV 
#177, (R3) 
3$ 

,SQUES 

1$ 

(R3),9$% 

,9$ 

#15, (R3)+ 
2$ 

-1(R3) 

, LF 
(SP)+,R3 
(SP) ,-(SP) 
4(SP),2(SP) 
MSTTYIN,4(SP) 


~ OOO 
* 


*C/<15><12> 
/*U/<15><12> 
/*G/<15><12> 


<15><12>/SWR = 


/ NEW = 


re en ee es we 
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A ee 4 A STRING FROM THE TTY 
;;ADDRESS QF FIRST CHARACTER WILL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL 0°S 


SAVE R3 
SIGET ADDRESS 
BR IF Y FULL? 


BR YES 
;60 eH ONE CHARACTER FROM THE TTY 
:10ET CHARACTER 
S IT A ree ¢? 
; |BRANCH IF N 
s; TYPE A FONT ROL Se" 
; RESTORE R3 
; GOTO vy C RESTART 


S IT A 
3 3 SKIP 4 NOT 


YPE A '?° 
;;CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 


;; CHECK FOR RETURN 
3;LOOP IF NOT RETURN 


RN 
“33 CLEAR RETURN (THE 15) 


; TYPE A LINE FEED 


: REST ORE R3 

: ADJUST THE STACK AND PUT ADDRESS OF THE 
es FIRST ASCII CHARACTER ON IT 

; ;sRETURN 

aq bhp FOR ASCII CHAR. TO TYPE 

:; TERMINATOR 

; ;RESERVE 8 BYTES FOR TTY INPUT 

;s CONTROL 

:; CONTROL ‘'U"' 


;;CONTROL ‘'G" 


SEQ 0117 
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000001 
000001 


000001 


031000 
000001 
000100 
000004 
000002 
001170 


001204 


001204 


001206 
000004 


000004 
000002 
177776 
027412 
031002 
001210 
001170 


000004 


031001 
031000 


031002 
031000 


031002 


601210 
001211 


000004 


001170 


030712 
000004 


001172 
000004 
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~SBTTL APT COMMUNICATIONS ROUTINE 


REAR AA ARERR AAAAEEAAEAEH HATER EAAAAAAAAAAAAAAAAAAAERTA ATER AAA EE 


$ATY1: 
SATY3: 


SATY4: 
SATYC: 


12$: CLRB 


SMFLG: 
SLFLG: 
SFFLG: 


EVEN 
APTSIZE=200 


APTENV=001 
APTSPOOL=100 


#1,SFFLG 
#1, SMFLG 
SATYC 

#1 ,SFFLG 


RO,-(SP) 
R1,-(SP) 

SMFLG 

5$ 

#APTENV, SENV 
#APTSPOOL , SENVM 


teal "7 
4(SP) 


- #2, 


SHSGTYPE 
RO,$MSGAD 
(RO) + 

2$ 
SMSGAD,RO 
RO 


RO,$MSGLGT 
#4 ,SMSGTYPE 


a4(SP).4$ 
#2,4(SP) 
177776, -(SP) 
PC $TYPE 

0 

SFFLG 

12$ 

SENV 

12$ 

SMSGTYPE 

11$ 
a4(SP),S$FATAL 
#2,4(SP) 
SMSGTYPE 
SFFLG 


;;TO REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 


;;TO ONLY REPORT FATAL ERROR 


;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
ge MDT: — A MESSAGE? 


0 

: OPERATING UNDER APT? 

; s SHOULD SPOOL MESSAGES? 
NOT: BR 


::GET MESSAGE ADDR. 

;;BUMP RETURN ADDR. 
;;SEE IF DONE W/ LAST XMISSION? 
;;1F NOT: WAIT 
;;PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 


:;SUB START OF MESSAGE 

3;GET MESSAGE LNGTH IN WORDS 
:;PUT LENGTH IN MAILBOX 

>: TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
-BUMP RETURN ADDRESS 

: :PUSH 155776 ON STACK 

*=CALL TYPE MACRO 


5 MOT: = FATAL ERROR? 
; ; RUNNING UNDER APT? 


;;1F NOT: BR 
; FINISHED LAST MESSAGE? 
;I1F NOT: WAIT 


:3GET ERROR 

;BUMP RETURN ADDR. 
gS VELL ai TO TAKE ERROR 
;;CLEAR FATAL FLAG 


4;CLEAR LOG FLAG 


:: POP —— INTO RO 
; RETURN 

; IMESSG.. FLAG 
;;LOG FLAG 
S:FATAL FLAG 


SEQ 0112 


eee ee a 


ee ee ees eee ee 
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001103 


001102 
002000 


001160 


020000 


031320 
001165 


000001 


001114 
030554 


150604 


001116 
001114 
150050 


001210 
031124 
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SRRRARRRRE ERR AEA THE TE THE REE RAE RATRAKAAKAAHTAAAE Kee ARE AAT Te Te 
THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
:*SAVE THE ERROR ITEM 5 oa AND THE ADDRESS OF THE ERROR CALL 


;*AND GO TO MYTYPE ON ERROR 
seTHE SWITCH sath oo PROVIDED BY THIS ROUTINE ARE: 


SERROR: 


7$: 


1$: 


20$: 


21$: 


22%: 
2$: 


3$: 


052 
ATI 


ee — 
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ONS ROUTINE 


N ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


;; TEST FOR CHANGE IN SOF T-SWR 


SERFLG +3 SET THE ERROR FLAG 

7$ ;DON'T LET THE FLAG GO TO ZERO 
STSTNM,@DISPLAY > DISPLAY TEST NUMBER AND ERROR FLAG 
#BIT10,aSWR ;;BELL ON ERROR? 

1$ 33NO se SKIP 

, SBELL + sRING BELL 

SERTTL ; COUNT THE NUMBER OF ERRORS 

(SP) ,SERRPC GET ADDRESS OF ERROR INSTRUCTION 
#2, SERRPC 

@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
#B1T13,aSWR ::SKIP TYPEOUT IF SET 

20 ;;SKIP TYPEOUTS 

PC ,MYTYPE ;;G0 TO USER ERROR ROUTINE 

, SCRLF 

#APTENV,SENV ;;RUNNING IN APT MODE 

2$ :;NO,SKIP APT ERROR REPORT 
SITEMB,21$% ;;SET ITEM NUMBER AS ERROR NUMBER 
eres ;;REPORT FATAL ERROR TO APT 

0 

22$ ;;APT ERROR LOOP 

aSwR ;;HALT ON ERROR 

3$ ;;SKIP IF CONTINUE 


;;HALT ON ERROR! 
;; TEST FOR CHANGE IN SOF T-SWR 


: ;sRETURN 


SEQ 0115 


re ee 
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104401 


001004 
013746 
104402 


020040 
031320 


001165 
001114 


001116 


031514 


001165 
000 
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~SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


seeeReHeeeeHeReRee eee eHeKeeeeeereKeeeaeeeeeerereeeeerereeeeeeeee 

THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
>*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE ' (SERRTB), 
:#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYP 


SSCRLF + "CARRIAGE RETURN’ & "LINE FEED" 


MOV RO,-(SP) : SAVE R 

CLR RO s:PICKUP THE ITEM INDEX 

B1SB8 a*SiTEMB,RO 

BNE 1$ :;1F ITEM NUMBER IS ZERO, JUST 
;:; TYPE THE PC OF THE ER ROR 


MOV Sc RRPC,-(SP) ;;SAVE SERRPC FOR TYPEOUT 
ee Ty 


ADDRESS 
O TYPE--OCTAL ASCIICALL DIGITS) 


TYPOC 
BR 10$ HE OUT 
1$ DEC RO :;ADJUST THE INDEX SO THAT IT WILL 
ASL RO HE WORK FOR THE ERROR TABLE 
aa RO 
L 


RO 
ADD #SERRTB,RO 
MOV (RO)+,2$ 


;;FORM TABLE POINTER 
;;PICKUP ‘‘ERROR MESSAGE’ POINTER 


BEQStié3S :;SKIP TYPEOUT IF NO POINTER 
TYPE SS TYPE THE "ERROR MESSAGE'’ 
2$: WORD 0 i S,TERROR MESSAGE” POINTER GOES HERE 
TYPE =, SCRLF cS CARRIAGE RETURN" & “LINE FEED" 
3$: MOV (RO)+,48 i 3PICKUP "DATA HEADER’ POINTER 
BEQ«=séSS i SKIP TYPEOUT IF 0 
TYPE S;]YPE THE "DATA HEADER" 
4$: WORD 0 ATA HEADER" POINTER GOES HERE 
TYPE =, SCRLF “CARRIAGE RETURN’ & "LINE FEED" 
5$: MOV R1,-(SP) Z7SAVE RI 
MOV —s- (RO) +, RT ::PICKUP "DATA TABLE’ POINTER 
BEQséO9S :BR IF NO DATA TO BE TYPED 
MOV —s- (RO) +, RO ; ;PICKUP, "DATA FORMAT.” POINTER 
6$: TSTB. = (RO) + pOCTAL™ OR "DECIMA 
BNE © 7$ :7BR IF DECIMA 
MOV. @CR1)#,-(SP) —EESAVE @CRI)* FOR TYPEOUT 
TYPOC 3:60 TYPE--OCTAL ASCII(ALL DIGITS) 
- BR BS 
MOV = @(R1)+,-(SP) —-; ; SAVE @(R1)+ FOR TYPEOUT 
TYPDS :3G0 TYPE--DECIMAL ASCII WITH SIGN 
8$: TST > (RI) :;1S THERE ANOTHER NUMBER? 
BEQ $ :BR IF NO 
TYPE = , 118 ;; TYPE TWO(2) SPACES 
BR é$ : LOOP 
9$: MOV = (SP)+,R1 ; ;RESTORE R} 
10$: MOV  (SP)+,RO SRESTORE RO 
TYPE, SCRLI iS ARRIAGE RETURN’ & “LINE FEED" 
11$:  .ASCIZ / / 5; 1WO(2) SPACES 
-EVEN 


SEQ 0114 


| 
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WIWINI WW Neer 
FUN "Oo DONDTUVNS 


ee ee et le et a ae cl ee ec ee el ed oe ed 


PUD DUDVIVLUDUDV IVS SPUSDUSU SUD SV SUSIE SUSUSU SUSU SUSI SIT SST 
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031354 
031362 
031366 
031372 
031374 
031376 
031402 
031406 
031412 


031426 
031430 
031432 


031440 


032737 
001407 
012737 
000000 
012737 


104401 
013746 
005216 
104405 
104401 
104401 
104401 


004737 


000207 
000000 


000000 


000020 
040300 
040000 


022602 
001176 


031430 
001174 


001246 
177420 
177420 


MYTYPE: MOVB 
MOV 


12$: 


ERRNUM: 


SITEMB,ERRNUM ;FOR ERROR TYPEOUT 
SRXSA,$TESTN :FOR APT 
“APT PRINTS S$TESTN & SFATAL IN THAT ORDER. 
“$TESTN WILL BE FLOPPY RXSA 
“$FATAL IS ERR # 
#8114, SDEVM :RUNNING WITHOUT CONSOLE? 
#<ULITE!300>, PARAM “ELSE SET USER LIGHT 1 & 2 
“AND HALT....WAIT TO PROCEED 
#<ULITE>, PARAM “CLEAR LIGHTS 
PASS :TYPE PASS # BEFORE ERROR 
$PASS,-(SP) “LOAD PASS # 
(SP) “NO SUCH THING AS PASS 0 FOR OPERATOR 
sTYPE IT 
/SERIAL -TYPE SERIAL # BEFORE ERROR 
"STTYIN 
“NULL 
PC, SERRTYP - TYPE ERROR MSG 
TERR 
PERR 
PC 


;FOR ERR TYPEOUT 


;TOTAL ERROR COUNT 

;TOTAL SOFT ERR COUNT 

;PASS ERR COUNT 

;PASS SOFT ERR COUNT... ALL FOR EOP TYPEOUT 
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Secoss 
COoCooQoooooooooooeoo 
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oo 
Led 
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WRU UI 


Ladin 
MMA 


Sessax 


SFRSEVRVSSE 


—~ 
—~ 


NO & 
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Sess 
SRRES 


So 
wn 
PIANO 


ss 
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020200 
000020 
000055 


031656 
000040 


031646 


000001 
000060 
000040 


000010 


177777 


000001 


177777 


177776 
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~SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MARARAAALALALLELALALALLLELESAAA RARER REAR AAR RAR SARA RARER AA RRA DD AS 


eTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. a Reena at ON WHETHER THE 


S*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINU 
;*BEFORE THE FIRST DIGIT OF TH 
:*REPLACED WITH SPACES. 


*CALL 


STYPDS: 


7$: 


8$: 


9$: 


MOV 


TYPDS 


NUM ,-(SP) 


RO,-(SP) 


R5 
#*=,10SP) 
RO 
+ ee R3 


,(R3)+ 


SOTBL (RO) .R1 
R5 


(SP) 


6$ 
Sg -1(R3) 


0,R2 


6 
(SP)+ 


WILL BE TYPED 


S SIGN 
E NUMBER. LEADING EROS WILL ALWAYS BE 


;;PUT THE BINARY NUMBER ON THE STACK 
;;GO0 TO THE ROUTINE 


;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

;;PUSH R3 ON erate 

;3;PUSH R5 ON STACK 

¢3SET BLANK SWITCH AND SIGN 
NUMBER 


$s AN 

:;FORM THIS BCD DIGIT 

;;BR IF DONE 

;; INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
;:;CHECK IF BCD DIGIT=0 
;;FALL THROUGH IF 0 

p35 Tebh ti LEADING 0°S? 


;;BR IF NO 
>; YES--SET THE SIGN 
;;MAKE THE BCD DIGIT ASCII 
;;MAKE IT A SPACE IF NOT ALREADY A DI 
;;PUT THIS CHARACTER IN THE OUTPUT BU 
;;JUST INCREMENTING 
;;CHECK THE TABLE INDEX 
;:GO DO THE NEXT DIGIT 
TO EXIT 


;;GET THE LSD 
;;GO CHANGE TO ASCII 
+ WAS THE LSD THE FIRST NON-ZERO? 


:BR IF NO 
3 YES==SET THE ped FOR TYPING 


GIT 
FFER 


:;POP STACK INTO R2 


a a ae ee 


SEQ 0116 
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SR SSeS NSO RUN Oooo 


52 
52 
52 
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52 
52 
52 
52 
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52 
52 
52 
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52 
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52 
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Wror 
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WAI AIWI WOW OWww 

ETESSLES, 
NO Fry 


6 


AAA AAA AAA AAMAAAAAS 
SSNS NNN NS NNO 
SFSSEGSSEESSNSESAH 


oF 
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eee ee ed ed oe od oe’ od = 


weet 


~~ 
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000004 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MOV (SP)+,R1 
MOV (SP)+,RO 
TYPE SDBLK 
MOV 2(SP) ,4(SP) 
MOV (SP)+. (SP) 
RTI 

S$DTBL: 10000 
1000 
100. 
10 

SDBLK: . 


SEQ 0117 


;;POP STACK INTO R1 
:;POP STACK INTO RO 
;;NOW TYPE THE NUMBER 
:;sADJUST THE STACK 


;;RETURN TO USER 


BLKw 4 
-SBTITL BINARY TO OCTAL (ASCII) AND TYPE 


5 RRA AAAEAAAAREAAEAAAA TARA AAAAAAAAAAAAARAAAAAAAEARAARATARA RATATAT 


=*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


;*OCTAL (ASCII) NUMBER AND TYPE 


IT 


;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3*CALL: 

7* MOV NUM ,-(SP) 
3% TYPOS 

7* BYTE N 

7@ BYTE 

;* 

;* 


8 


;*$STYPOS OR S$TYPOC 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 


ss T= TYPE LEADING ZEROS 
::O=SUPPRESS LEADING ZEROS 


:*$TYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


:* 
;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 








;*CALL: 

;* MOV NUM, -(SP) 

;* TYPON 

> *CALL 

;@ MOV NUM, -(SP) 

7* TYPOC 

STYPOS: MOV a(SP),-(SP) 

MOVB 1(SP), SOF ILL 
(SP)+,S$OMODE +1 
#2, (SP) 
B STYPON 

STYPOC: #1, SOFILL 
#6, SOMODE +1 

STYPON: #5, S0CNT 
R4 , SOMODE 
SOFILL RS 
ree 
& 

1$: bh 
8 





;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


;:PICKUP THE MODE 

;;LOAD ZERO FILL SWITCH 
;;NUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 


;;SET THE ZERO FILL SWITCH 
SET FOR SIX(6) MiG!TS 
73 SET — ITERATION COUNT 


33 R5 
>:GET THE NUMBER OF DIGITS TO TYPE 


:: SUBTRACT IT FOR MAX. ALLOWED 
>: SAVE IT FOR USE 

:;GET THE ZERO FILL SWITCH 
;;PICKUP THE INPUT NUMBER 
;: CLEAR THE OUTPUT WORD 
>; ROTATE MSB INTO ‘'C”’ 
;;G0 DO MSB 


eee 
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CVKDAD.P11  14=JUL-80 16:36 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0118 
$270 031776 006105 2$: ROL RS -:FORM THIS DIGIT 
$271 032000 006105 ROL RS 
5 i 032002 105 ROL RS 
5275 032004 01 308 MOV R5,R35 
$374 0 906 00619 3S: ROL R3 :;GET LSB OF THIS DIGIT 
$275 032010 105337 032112 DECB $OMODE -:TYPE THIS DIGIT? 
$276 0 4p. 100016 BPL ::BR IF NO 
$277 0 O16 042703 177770 RIC #177770,R3 :3GET RID OF JUNK 
5278 Bases 001002 BNE 4$ 
5279 032024 005704 TST RG :3 SUPPRESS THIS 0? 
5280 basnee 001403 BEQ 5$ R YES 
5281 032030 005704 4%: INC R4 3 BON’ T SUPPRESS ANYMORE 0'S 
5282 032032 052703 000060 BIS #'0O,R3 :;MAKE THIS DIGIT ASCII 
5283 032036 052703 000040 S$: BIS #' RB *:MAKE ASCII IF NOT ALREADY 
$284 032042 110337 032106 MOVB  R3, 8S = SAVE FOR TYPING 
5285 0320466 104401 032106 TYPE 8S -:G0 TYPE THIS DIGIT 
$286 032052 105337 032110 7$: DECB = S$OCNT ==COUNT BY 1 
5287 032056 003347 BGT 2$ ;;BR IF MORE TO DO 
$288 032060 002402 BLT 6$ :;BR IF DONE 
5289 032062 005204 INC RG >: INSURE LAST DIGIT ISN'T A BLANK 
5290 032064 000744 BR 2$ =:G0 DO THE LAST DIGIT 
5291 032066 012605 6$: MOV (SP)+,R5 s ;RESTORE R5 
$292 032070 012604 MOV (SP)+,R4 : :RESTORE R4 
$293 032072 012603 MOV (SP)+,R3 : :sRESTORE R3 
$294 032074 016666 000002 000004 MOV 2(SP),4(SP) =SET THE STACK FOR RETURNING 
§295 032102 012616 MOV (SP)+, (SP) 
$296 032104 000002 RTI : :RETURN 
5297 032106 000 8$: BYTE 0 = STORAGE FOR ASCII DIGIT 
5298 032107 000 “BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
5299 032110 000 SOCNT: .BYTE 0 -:OCTAL DIGIT COUNTER 
300 032111 000 S$OFILL: .BYTE 0 *:7ERO FILL SWITCH 
$301 032112 000000 SOMODE: .WORD 0 -=NUMBER OF DIGITS TO TYPE 


CVKDAD 
CVKDAD 


FLT tele beak kl eal eal ak al Mak sb al Mal al al Mak ah sh eh Ab Ab Ah A 


WN —OVOO@NOUFSF WN Oo 


SEEEE ESE FRG 
$9 OOO NF WN "Oo OOnou 


LAA 
wv 


-P11 


032146 


032150 


032174 
032176 
032276 


PoTli- be EXERCISER 
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011646 
016666 
000002 


032136 


031442 
027744 
027674 


013126 
000040 


003574 


000002 


032150 


000004 000002 


MACY11 Foncivoes 


TRAP DECODE 
-SBTTL TRAP DECODER 
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—— 


SEQ 0119 


SRERAAAARAAAAAEERAEEAEETEREREEAAEEAEREAAAAAAAAAEAAAAAAAEAAAAAEAEES 


 STHIS ROUTINE WILL PICKUP THE + eS BYTE OF He ""TRAP’’ INSTRUCTION 


:#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR 


THE STARTING ADDRESS 


:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:#G0 TO THAT ROUTINE. 


STRAP: 


RO,-(SP) 
2(SP) ,RO 
-(RO) 

(RO) ,RO 


RO 
STRPAD(RO) ,RO 
RO 


;SAVE RO 

: GET TRAP ADDRESS 
ACKUP BY 2 

3GET RIGHT BYTE OF TRAP 
;POSITION FOR INDEXING 


>; INDEX TO TABLE 
;;GO0 TO ROUTINE 


;;THIS IS USE TO HANDLE THE ‘’GETPRI'’ MACRO 
STRAP2: MOV 


MOV 
RTI 


(SP) ,-(SP) 
4(SP),2(SP) 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘'TRAP’’ INSTRUCTION. 


LSTAD: 


.END 


ROUTINE 


$TRPAD: 
$ 


STYPDS 
SGTSWR 
SCKSWR 
SRDCHR 
SRDLIN 
GTSDEV 


~BLKW 


STRAP2 

3; CALL=TYPE 
3; CALL=TYPOC 
;;CALL=TYPOS 
;;CALL=TYPON 
:;CALL=TYPDS 


7; CALL=GTSWR 
7; CALL=CKSWR 
3; CALL=RDCHR 
3; CALL=RDOLIN 
3; CALL=GTDEVM 


32. 


;;MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 
;;PESTORE THE PSW 


TRAP+1(104401) 
TRAP+2(104402) 
TRAP+3(104403) 
TRAP +4 (104404) 
TRAP+5 (104405) 


TRAP+6(104406) 
TRAP+7 (104407) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 
TEST FOR CHANGE IN SOFT~SWR 


TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
TRAP+12(104412) “C WILL OPEN UP SDEVM 


;STACK FOR “‘EIS-FIS'* TESTS 


;MAX ADDR FOR 8K WITH APT = 37400 


gMAX ADDR FOR 8K NO APT BUT TO SAVE ABS LOADER = 


37500 
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ABASE = 176500 728 = =1253 1294 
000000 ; 
6 3111 47348 
1268 
* 1907" 1912 1940" 19778 4734 


ee ee ed ed td wd tL) 
r ~.ees 





1259 
# 1253 1295 
1264 
1265 
1256 
1281 
1285 
1288 
1291 
1275 
1283 
1286 
1289 
2334 3132 
9864 2338 2340 3133 
9454 2350 3691 
9448 1805" 1806" 1837* 2342" 2351* 2377* 2378* 3136* 31357* 
2346 36914 
9184 2345 
1253 1261 
1253 1262 
1253 1255 
2268 2273 23320 
1253 1276 
1253 1284 
1255 1287 
1253 1290 
16 9478 3688+ 
AMXC = 176614 9464 $2288 3687* 37035 
AMXSRV 014636 2347 6874 
AMXVEC= 000334 9194 
$1 005724 2169* 2174 21834 
ANS2 005726 2i70* 2177 21844 
APASS = 000000 1255 1258 
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APTSPO= 0001 
ASHC1 005236 
ante 005 
ASHC 005 
ASHC4 005400 
ASH1 005106 
ASH 005146 
AGn 005170 
ASHG 005210 


AVECT2= 000000 
BITHLD 013714 
BITO = 000001 
B1T00 = 000001 
BITO1 = 000002 
BITO2 = 000004 
BITOS = 000010 
B1T04 = 000020 
BITO0S = 000040 
4B = 000100 
BITO7 = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1 = 000002 
B1T10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
B1T13 = 020000 
B1T14 = 040000 
B1115 = 100000 
BIT2 = 000004 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT&8 = 000400 
BIT9 = 001000 
BOTMON 005014 


B150 = 002000 


EXERCISER 
6:36 
1253 
4765 50244 
4758 4980 
1740 50214 
4760 4982 
2032 20384 
2054 20604 
2076 20814 
2085 20924 
1986 1991 
2003 200 
2012 20174 
2021 20264 
1253 1266 
1253 1257. 
1253 1260 
7724 = 1253 
7724) =—61253 
1253 1293 
3425 3429 
8914 1058 
884 891 
8804 890 
87948 889 
878" 888 
8778 887 
8764 886 
875a 885 
8748 884 
8734 883 
872a 882 
8904 1025 
8718 1038 
8704 +#£«+1071 
8694 1037 
2409 2447 
8684 1036 
8674 1035 
8664 1034 
B89" 1044 
888" 1043 
887" 1078 
8864 1042 
8854 1041 
884" 1040 
8834 1074 
8824 1039 
1916 1933 
89 
10584 
3105 47348 
994" 
9994 
9954 
9964 
10004 
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SEQ 0121 


5022#@ 5055 
50234 


2182 


1267 
1292 


34434 
1154 2384 3187 


1045 1081 1153 2422 

1072 2266 5043 

1112 2332 

1952 1070 1087 1111 1954 2189 2214 2255 2322 2362 2380 
2485 4074 4090 4111 4454 4470 4492 

1051 1069 2418 5050 

1050 1068 1086 1094 2456 

1049 1067 1085 1110 1129 2223 4200 4389 

1080 1152 2460 

1079 1118 1151 2283 2336 3125 

1117 1132 1133 1150 3149 5132 

1077 1116 1149 2501 3089 

1057 1076 1115 1131 1985 

1056 1075 1114 1130 1148 2199 

1113 2599 2637 2698 2748 2772 2817 2884 2921 
1073 2618 2645 2725 2753 2846 

1946 19644 


- . 
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B19200= 007400 10074 
B2000 = 004400 10014 
B2400 = 005000 10024 1672 1673 1674 
B300 = 002400 9978 
B3600 = 005400 10034 
B = 10044 
= 9928 
B600 = 003000 9984 
B7200 = 006400 10054 
B75 = 000400 9934 
9600 = 007000 10064 1669 1670 1671 
CDET = 010000 10374 10704 
CHARS = 000000 10184 
CHAR6 = 000004 10194 
CHAR? = 000010 10204 
CHARS = 000014 10214 2229 2338 2340 2386 2388 2424 2426 2462 2464 3133 
CHKCON 012624 1952 2187 2212 2251 2319 2360 2407 2445 2483 2968 3167# 4072 4088 
4109 4452 4468 4490 
CHR5 = 00 10984 
CHR6 = 002000 10994 
CHR7 = 004000 11004 
CHRB = 000 11014 2286 
CKSWR = 104407 3254 5039 5065 53414 
CKOBAD 014006 2711 34908 
CKIBAD 014120 2736 35384 
K = 177546 9394 1831* 2204* 
CLKTST 005760 21994 
CLKVEC= 000100 9164 1693* 1694* 2201* 2202+ 
CLOCK 021676 2216 3107 47344 
CLOPT 021442 3076 47344 
CLPRES 012614 2371 3072* 3075* 31554 
CLRBAD 013716 1845 3450# 
CLT1 021462 2411 3112 47348 
CLT2 021475 2449 3113 47348 
CLTS 021504 2487 3114 47348 
CLITST 006744 2333 2358 2361 2363 23718 
CL2TST 007156 2381 2405 2408 2410 24184 
CL3TST 007332 2419 2443 2446 2448 24568 
COMCHR 014732 2509* 2314 2349* 2355 3688 3692 3696 3698* 3701* 37064 3714 3715 3738 
3742 3744% 8 =3747e = 47354 
COMHLD 014734 334% He 2350* 3691* 3692 3707# 3735* 3736 3738 4734 
tae 1680* 1684* 1688*  1696* 1800 1848 2653 2994 3000 3C04* 3182 4196 
003512 igane 1683* 1689* 1697* 1802 1850 2605 2624 2758 2996 3005* 3184 4198 
010000 9814 
023124 4639 47348 
3506 16574 1687* 1698* 1774 1856 4567* 
023025 4568 47348 
020714 1858 4567# 4641 
15 806 2236 3581 3594 4804 4814 
10 11514 3939 4328 
000200 8074 1762 4734 4775 4814 
013422 3334* 33358 3352a 
015516 3362* 3366* 33784 3391* 3595 
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CTREG? 015520 3361* 3369* 33798 3390* 3398+ 

CTS = 020000 10364 10694 

ctl = 00 982" 2386 2388 

CT2 = 050000 9834 2424 2426 

CTS = 060000 9844 26462 2464 

CIBAUD 003526 16724 2382 

C2BAUD 0035350 16734 2420 

C3BAUD 003532 16744 2658 

DATCHK 021406 4623 47148 

DD = 000040 11494 3963 

DDISP = 177570 8134 1236 1728 

DEFBD 021746 1813 47348 

DEV 023315 3261 47348 

OF 027364 1315 1318 1321 1324 1327 1330 1333 1336 1339 1342 1345 1348 1351 
1390 1393 1396 1399 1402 1405 1408 1411 1414 1417 1420 1423 1426 
1429 1432 1435 1438 1444 1447 1450 1453 1456 1459 1462 1465 1492 
1495 1498 1501 1507 1510 1513 1516 1549 1552 1555 1558 1561 1564 
1567 1570 1573 1576 1584 1587 1593 1596 47348 

DF1 = =—027372 1354 1357 1360 1363 1372 1375 1378 1381 1468 1471 1474 1477 1480 
1483 1486 1489 1531 1540 47348 

DF2 027402 1366 1369 1384 1387 1441 1534 1543 47344 

DH1 026441 1330 1390 1396 1399 1402 1405 1408 1417 1420 1423 1584 1587 47348 

DH2 0264 1315 1318 1324 47344 

DH3 026504 1321 1327 47344 

DH4 026546 1333 1393 47344 

DHS 026577 1336 1339 1342 1345 1348 1498 1501 47348 

DH6 026634 1351 1411 1414 1426 1429 1432 1435 1438 1444 1447 1450 1453 1456 
1459 1462 1465 1492 1495 1507 1510 1513 1516 1549 1552 1555 1558 
1561 1564 1567 1570 1573 1576 1593 1596 47348 

DH7 026701 1354 1357 1360 1363 1372 1375 1378 1381 1468 1471 1474 1477 1480 
1483 1486 1489 1531 1540 47348 

DH8 026770 1366 1369 1384 1387 1441 1534 1543 47348 

DISPLA 001142 12364 1728 1736* 5042* 

DISPRE 000174 11634 1736 

Divo 005476 2117 21244 

DNA = 100000 11104 

DNAIE = 40 11164 

DONE = 1040 10754 11304 2294 2506 2514 2533 2546 4545 4685 4704 

DROP 022446 3102 47348 

DRVO 021572 3108 4076 4092 4113 47348 

DRV1 021577 3109 4456 4472 4494 47348 

DSC = 100000 10674 

DSI = 100000 10344 

DSIE = 000040 10424 10774 

DSRDY = 001000 10394 10734 

DS = 177570 8124 1235 1727 

DTR = 10454 10814 1805 1806 1837 2287 2342 2377 2378 3136 3137 

DT1 027062 1330 1390 1396 1399 1402 1405 1408 1417 1420 1423 1584 1587 47348 

D110 027212 1354 1357 1360 1363 1468 1471 1474 1477 1531 47344 

D111 027234 1366 1369 1441 1534 47348 

DT12 027256 1372 1375 1378 1381 1480 1483 1486 1489 1540 47348 

D115 027300 1384 1387 1543 47348 

DT14 027322 1411 1414 1426 1429 1432 1435 1450 1456 1495 1507 1510 1513 1516 
1549 1552 1555 1558 1561 1564 1567 1570 1573 1576 1596 47348 

D115 027340 1498 4734# | 

D116 027352 1501 47348 
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DT2 027070 1315 1318 1324 47348 

DT3 027100 1321 1327 47348 

D14 027114 1333 1393 47344 

DTS 027124 1336 47348 

DT6 027136 1339 47348 

D17 027150 1342 47348 

DT8 027162 1345 1348 47348 

DT9 027174 1351 1438 1444 1447 1453 1459 1462 1465 14392 1593 47344 

DUN 022574 1957 2192 2325 4080 4094 4115 4460 4474 4496 47344 

DXTST 003476 16444 26992 2584% 2685* 2775 2820*% 2849% 2887* 2925* 3829 3961 4030 4053 
4123 4125 4501 4734 

DXTSTO 007506 2373 2457 2481 2484 2486 24998 

DxTST1 007750 1854 2502 2563 25844 

DXTST2 010404 2658 2668 26854 

DXTSTS 010754 2759 2772a 

DXTST4 011130 2773 2786 28174 

DXTSTS 011410 2847 2856 28844 

DXTST6 011526 2885 2898 2907 29214 

Dx1 = 000020 11324 2631 2742 2852 2868 4150 4180 4203 4223 4247 4279 4292 4312 
4325 4365 4476 4497 4596 4609 

DOBAD 003004 16144 3450 3452 3468 3475 3497 3498 

DOBUF 002604 16134 2538 2551 2561 3980 4002 4593 4715 

DOCDAT 016174 3981 39964 

DOCERR 002574 16094 2591* 2691* 2777* c797* 2837 2889* 4028 4043 4048* 4052* 4734 

DOCMER 002572 16084  3881* 3996* 4007 4021 4067*  4104* 

DOCNT 002562 16044  2692* 2750 4106* 4107 

DOCRC 002602 16124 3941% 3945 4023 4038 4049* 

PODISP 015226 2607* 2610* 2714 2779* 2801* 2821* 2839 2891* 2900* 2930* 3783 37848 3805* 

. 3828*  3856* 3888*  3902* 3922% 3935* 3981* 4136* 4145% 4157* 4165* 

DODUN 017052 4056 4127 4136 4145 4157 4165 41754 

DOEBUF 016136 2801 3967 39794 

DOERR 002564 16054 2590*  2690* 2776* 2796* 2836* 2888* 3846 3863 3874*  3880* 3884* 3916 
3918* 3949 3960* 4066* 4103* 4734 

DOEXP 002576 16104 4005* 4012* 4734 

DOFBUF 015244 2610 2891 38004 3877 3888 

DOINIT 016736 2779 41344 

DOINV 017034 2930 41654 

DONEXT 016714 3947 4050 41234 

DONXT1 016442 40664 4124 

DONXT2 016622 41034 4126 

DOPAT 002560 16034 2589 2639 4095* 

DORCHK 015666 902 39144 

DOREC 002600 16114 4006* 4734 

DOREST 016762 2821 41454 

DORSEC 015632 2607 2714 2839 3882 3897# 3920 3922 4055 4070 

DOSEC 002570 16074 2592 2709% 2799 2834* 2927 2953 3495 3804 3826 3876 3879* 3899 
4001 4069 4085* 4734 

DOSTAT 017016 2900 4157# 

DOTMO 013522 2641 3360* 3371 33804 

DOTRK 002566 16064 2586 2662 2669* 2704* 2798 2833 2926* 2952 5493 3802 3824 3897 
3999 4078 4082 4084* 4734 

DOWCHK 015402 3828 38444 

DOWSEC 015326 3805 38244 

DIBAD 003254 16324 3455 3457 3516 3523 3545 3546 

DiIBUF 003054 16314 4363 4391 4621 4716 

DICDAT 020010 4364 43784 


——- + + - ? 
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DICERR 003044 1627# 2596* 2695" 2865" 4416 6425 4431% 4435" 4734 
DICMER 003042 1626# 4271" 437B8e «= 4.396% «= 4410 a 7* 4485 
DICNT 003032 1622" 2696 2755 44872 4488 
DICRC 003052 1630# 4330" 4334" 4412 4421 = 4328 
DIDISP 015234 2626* 2629 2739 2850"  2867* 3786 3787# 4149% 4202 4222* 4266* 4278 42918 
G311e 4324e 4364s 
DIDUN 017066 4149 41798 
DIEBUF 017752 4350 4362" — 
DIERR 003034 1623# 2595* 2694" «= 2864* 4236 = 42534264" «= 42708 = 274% «= 305 4 307* «= 4338 43498 
4uee 4484" 4734 
DIEXP 003046 1628 4394" 4601" 4734 
DIFBUF 017102 2629 4190# 4267 4278 
DIINT 015230 3781 37868 
DINEXT 020520 4324 4336 4433 45018 
DINXT1 020246 4a46" 4502 
DINXT2 020426 44848 4503 
DIPAT 003030 16214 2594% 2667 = 4475 
DIRCHK 017524 4291 43034 
DIREC 003050 1629" 4395" = 4734 
DIREST 017000 2850 41498 
DIRSEC 017470 2626 «=. 2739S «2867S 4272 4 2B6H# = 4309S 4311 4436 4450 
DISEC 003040 leesa 2597* 2734% 2863" 3543 4194 4220 4266 4269* 4288 4383 4449 4465+ 
DITMO 013616 2649  3389% 3400"  3407¢ 
DITRK 003036 16240 2587 2663* 2670* 2729 2862 3541 4192 4218 4286 4381 4458 4462 
i 
DIWCHK 017240 4222 4234" 
017204 4202 42184 
00774 2552* 2556% 2557 2567# 4734 
000003 1138" 2539 «= 3982, —s«G 365) 4698 
021344 4592 4620 4696" 
012612 1983 3046* 3052* 31544 
005730 i982" 2180"  2185¢ 
005732 2181 21878 
005056 1953 1955 1958 19824 
021705 3054 3106 47340 
000030 901# 1719* 1720 
023324 1315 1318 «= 13240 47348 
23637 1351 4734a 
23664 1354 4734 
023716 1357 4734a 
023750 1360 507 «47348 
24001 1363 4734 
024032 1366 47348 
24066 1369 47348 
024112 1372 510 47348 
024144 1375 4734 
024176 1378 = 1516 47348 
023343 1321-1327, 47348 
024227 1381 47344 
024260 1384 47348 
024314 1387 47348 
024340 1390 0 47348 
024351 1393 47348 
024366 1396. 4734 
024403 1399 47344 
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1429 1432 1435 1450 1456 1558 1564 
1567 1570 47348 

47348 

1552 1555 1573 1576 1596 47348 

47348 


2760 2957 29668 
4585 4591* 4600* 4601 4607* 4613* 4614 


3365 3594 


11 

515 

1726* 1737* 1873 1874* 1949% 1950* 53016* 
5340 343) 


———-— --——- -- ------7" 


SEQ 0126 


oe ee ele 
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CVKDAD .P11 14-JUL-80 16:36 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0127 
FBUF = 000001 113748 §=©2525 3806 4203 
FIN 003500 16524 2611* 2630* 2716% 2741% 2781* 2803* 2822* 2838  2851*  2866*  28935* 2902+ 
2932 3363 392 4081* 4105* 4175* 4179% 4461* 4486* 
FIS 005542 2136 21464 
FISEIS 022542 2191 47348 
FLGHLD 013420 3333* 3338 33514 
FRERR = 020000 10514 
GETSEC 021234 4571 46534 
GNS = #eteee U- 1761 5333 5334 5335 5336 5337 5339 5341 5342 5343 5344 
GTDEVM= 104412 1783 53448 
GTSWR = 104406 1756 1766 53398 
GTSDEV 013126 32614 3303 4855 4941 5344 
HFDUP = 00001 11184 
HILIM 013076 2702* 38 2707* 2727 = =6—2732e = 331198* = 3237 32448 
H 013100 3216 3224 3229* 32468 
HLD42 005054 1706* 1964 19784 
HOLD 003534 16758 2228* 2229* 2230 2277* 2278* 2279 2334* 2338* 2340* 2341 2382*  2386* 
2388* 2390 2420" 2424% 2426* 2428 2458* 2462* 2464* 2466 3132* 31353* 3134 
HT = 000011 8044 4773 4814 
ID = 000001 11544 27 
iE = 000100 10414 10574 1076 #+#$(1d1154 11318 1831 2204 2238 2249 2310 2311 2351 2352 
2398 2399 243 2437 74 2475 2612 2631 2717 2742 2762 2804 2823 
2840 2852 2868 2894 2903 2933 3607 3623 3634 3650 3660 3676 3687 
3703 3713 3721 3748 3752 3806 3831 3833 3857 3889 3903 3923 3936 
3982 4096 4116 4137 4146 4150 4158 4166 4176 4180 4205 4225 4247 
4279 4292 4312 4325 4365 4476 4497 4539 
INITAL= 000011 11414 2510 4137 
INTFLG 014202 18835 1887 1903* 1905 2203* 2207 3024* 3028 3047* 3050 3062* 3065 3565* 
INTSRV 014174 1873 2201 3016 3018 35654 
11534 2939 
2924 2948 2951* 29598 
8994 
11524 
34664 3848 3926 
35148 423 4315 
8054 3583 3590 4734 4808 4814 
2235* 2242 3595* 36004 
2701* 2706* 2726* 2731* 3197* 3255 32434 
3215 3222 3228* 32478 
1775 1801 1803 1815 1819 1827# 3006 
1892 1901 1929 1937 2146 2171 4653 53484 
2275* 3718 3720* 37298 
10254 2338 2386 2424 2462 
1876 3037* 31594 
4627 46434  4666* 
16554 1769* 2750 2755 2998+ 4107 4488 
16534 1768*  1853* 2660 2664+ 2667 2671* 2688* 2702 2727 2993* 4082 4462 
11124 2281 2285 
5041 47344 
1909* 1910 1942* 19754 4734 
1956 47348 
1857 18714 
11114 2285 
MR = 000400 11134 2280 2321 
MSG1 022650 2974 47348 


CVKDAD 
CVKDAD .P11 


MSG2 022677 
MSG3 022733 
MSG4 022767 
LO 0054 36 
MYTYPE 0313520 
NOCON 021631 
IS 005760 
NOTPRE 022135 
LL 012102 
NXTSEC 020532 
ODDPAR= 001000 
022500 
OPAR = 000020 
ORERR = 040000 
PARAM = 177420 
PARERR= 010 
PASS 022602 
PAT 005050 
PATFLG 012752 
PATT 022511 
PERR 031436 
PIRQ = 177772 
PIRQVE= 000240 
021555 
PRB = 177516 
PRBAUD 003520 
PRCHR 0143350 
l 02154 


PRINT 1544 
PRPORT 012620 
PRPRES 012616 
PRS = 177514 


RDY = 000200 
REGHLD 015712 
RESTOR= 000017 
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2228 


=. 


ea 


VIMO OL WOOulo 


3952s 


2733 


46788 


3923 


2390+ 


1941* 


3585 
3157# 
3138 


22234 


4046+ 


3199 


3936 


2428+ 


19764 


3587* 


3574 


4256* 


32134 


4146 


2466* 


4734 


3590* 


4341* 


4150 
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3134* 


3592* 


4428* 


4247 


ee ery 


SEQ 0128 


5134* 5136* 
3594* 35998 
51578 


4279 4312 4325 


_— 
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RESVEC= 000010 8954 3018*  3019*  3081* 3082+ 

RING = 040000 10354 10684 

RNF = 000020 11504 3849 3885 3919 3927 4239 4275 4308 4316 4549 

RSEC = 000007 11404 3903 4292 4542 4580 4609 

RSTAT = 000015 11424 4158 

RTS = 000004 10444 10804 1805 1806 1837 2287 2342 2377 2378 3136 3137 

RUN 022467 2217 2260 2365 2412 2450 2488 47348 

RXCS = 177170 9554 2505 2510" 2513 2518 2525* 2532 2539 2545 2612* 2631* 2717* 2742+ 
2782* 2788 2804* 2823* 2829 2840*  2852* 2868 2894* 2903* 2909 2933+ 
2944 3765 3767 3773 377 3780 3806* 3831*  3833* 3844 3857* 3889+ 3903+ 
3914 3923* 3936% 3982% 4096* 4116% 4137 4146% 4150*% 4158% 4166* 4176* 4180* 
4203* 4223* 4234 4247e 4279% 4292* 4303 4312% 4325% 4365* 4476% 4497% 4539 
4542e 4544 4576 4582 459 4611 4682* 4684 4698* 4703 4734 

RXDB = 177172 9564 2526* 2540 3807* 3810* 3983 4204* 4207* 4366 4699 

RXES = 177172 957# 2792 2939 3768 3777 3963 4549 4734 

RXSA = 177174 9584 8 2928% 2954* 3471 3519 3769 3778 3827* 3900* 4134* 4221* 4289% 4540* 
4541* 4551 4553* 4681* 4734 

RXSRV 015126 2602 2621 37654 

RXVEC = 000264 9248 2602* 2605* 2621* 2622+ 

COM 21515 2324 3110 47344 

SECCNT 021224 4625* 4627 46444 4669* 

SECT 21232 4575* 4630 4632* 4636* 4647# 4680 

SEKFLG 003516 16624 3852 3854* 3867 3869* 3930 3932* 3953 3955* 4242 4244* 4257 4259+ 
4319 4321* 4342 4344% 4538% 4556* 

SEKTST 020612 3851 3887 3921 3929 4241 4277 4310 4318 45384 

SEND = 000020 11174 2289 3725 

SERIAL 022614 1790 2982 4734# 5143 

SETPAT p1gete 1846 31798 

013314 2304 2344 2391 2429 2467 33144 

1812 30164 
16704 2277 
16614 2276* 2326* 3252 
9878 78 





9214 2305 
2224 2226 2245 2252 2254 2259 22668 
9535#@ 2290 3714* 
9524 2280* 2281% 2285% 2289% 2311" 2321* 3713* 3721% 3725* 3752+ 
2307 37134 
9228 
3574* 3575 36014 4734 
10384  1072a 
10784 2287 
3767" 8 3776% 3790H 4734 
SRXES 015240 roar 3777 837918 3849 3885 3919 3927 3939 4239 4275 4308 4316 4328 
SRXSA 015242 3769" 3778 37924 4734 5128 
STACK = 001100 799# §=1700 1717 
START 003574 1171 1174 16934 5351 
START! 0035536 1179 16804 
START2 003544 1181 16834 
STARTS 003556 1177 16874 
STKLMT= 177774 8104 
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STSYN = 000400 10744 
SWR 001140 12354 1715 1727* 1729 1735* 1742* 1754 1954 2189 2214 2253 2322 2362 
yt 2447 2485 4074 4090 4111 4454 4470 4492 4824 4869* 5043 5050 
SWREG 000176 11644. 1735 1754 4824 4837 
SWwO = 000001 8634 
S = 000001 8534 863 
$wO1 = 000002 8524 862 
SWO2 = 000004 8514 861 
swO3 = 000010 8504 60 
S$ = 000020 8494 859 
swOS = 000040 8484 858 
S = 000100 8474 857 
SWwO7 = 000200 8464 856 
SwO8 = 000400 8454 855 
SwO9 = 001000 8444 854 
Swi = 000002 8624 
Swi0 = 002000 8434 
SW11 = 004000 8428 
SWi2 = 010000 8414 
SwWi3 = 020000 8404 
Sw14 040000 8394 
Sw15 = 100000 8384 
SW2 = 000004 8614 
SW3 = 000010 8604 
SW4 = 000020 8594 
SWS = 000040 8584 
SW6 3 == 000100 8574 
SW7 = 000200 8564 
SWB = 000400 8554 
Ssw9 = 001000 8544 
SXMIT = 000010 10434 10794 
SYNC1 = 040000 10944 
SYNC2 = 000000 10934 
003614 1681 16974 
$2 003620 1685 16984 
003624 1690 17004 

TBITVE= 000014 8964 
TERR 031432 17718 2975 5148 51544 
TIMDO§ 013424 2614 2719 2784 2806 2825 2842 2896 2905 2935 33604 
TIMD1 013524 2633 2744 2854 2870 3389 
TIMER 013340 2206 2241 2313 2354 2401 2439 2477 33334 
TIMER] 013620 1829 1840 3167 34134 
TIMER2 013632 ots 2504 2512 2531 2544 34248 4543 4683 4702 
TK18 = 176502 9614 2397 3611 
T™K1S = 176500 9604 2398 3063 
TKISRV 014354 2393 36114 
TKIVEC= 000300 9268 25392 

= 176512 9664 2435 3638 

= 176510 YJ 436e 
TK2SAV 014454 2431 6384 
TK2VEC= 000310 9284 

= 176522 9718 2673 3664 

= 176520 9708 cate 3067 
TKSSRV (0145546 2469 6648 








CVKDAD 

CVKDAD .P11 
TKSVEC= 000320 
TPVEC = 000064 


14-JUL-80 


TP3B = 176526 
TP3S = 176524 
TPSSRV 014536 
TPSVEC= 000324 
TRACK 021230 
TRAPVE= 000034 
TRK 0225 
TRTVEC= 0000 
SERR 031434 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 10440 
TICHR 014432 
TIHLD 014434 
T2CHR 014532 
T2HLD 14534 
T3CHR 014632 
T3SHLD 014634 
ULITE = 040000 
SEL = 20 
WARNIN 022150 
cP 3300 
WODSEC= 000015 
WSEC = 5 
SAPTHD 001000 
SASTAT= eeeeee J 
SATYC 030562 
SATY1 030536 
SATYS 030544 
SATY4 030554 
SAUTOB 001134 
SBASE 001244 
$8D 001122 
SBDDAT 001126 
$SBELL 001160 
SCHARC 027670 
SCKSWR 027674 
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SCMTAG 001100 1215@ 1712 «:1713)—s«1723 | 
$CM3 = 000000 12458 
SCNTLC 030474 4850 4939 4960" 
SCNTLG 030506 4835 4962" 
SCNTLU 030501 4860 49618 
CPUOP 001216 12684 
SCRLF 001165 12478 3280 4779 4814 4871 4960 5053 5068 5076 5095 5100 5120 
LK 031656 5182. 55216 Ss 5224 
$DEVCT 001200 12594 967 53458 3368* 33742 3397¢ 3403" 3434" 3596* 3622 3649¢ 3675* 37020 
fr & oe 
SDEVM 001246 1295@ 1816 1818 1985 2199 2223 2266 2283 2332 2336 2375 2380 2384 
2418 2422 2456 2660 2501 2599 2618 2637 2645 2698 2723 2748 2753 
2772, «2817S 2846S 2BB4 = 2921S 3091s 3125. 3149 = 3262S: 3278% «= 5132 
SDTBL 031646 5185 5220" 
SENV 001210 12644 1707 1752 1781 1814 2270 3250 4758 4980 5004 5055 
SENVM 001211 1265@ 1740 4760 4765 4982 
SERFLG 001103 12184 5040* 5068 
SERMAX 001115 1224m 
SERROR 031004 1719 50384 
SERRPC 001116 1225# 4734 5047* 5048* 5049 5068 5082 
SERRTB 001250 13124 5090 
SERRTY 031144 5075#@ 5147 
SERTTL 001112 12224 5046* 5068 
SETABL 001210 12634 
SETEND 001250 1207 1296 
SFATAL 001172 1256# 5008 
$FFLG 031002 4971" 4974" 5002 5011* 50194 
$FILLC 001156 12434 4783 4814 
SFILLS 001155 12424 4814 
DADR 001120 1226e 
SGDDAT 001124 12288 
SGTSWR 027744 48364 5339 
D = 000000 783 
$HIBTS 001000 12024 
SICNT 001104 12194 
SINTAG 001135 1233@ 4852 4872 4967 
SITEMB 001114 1223#@ 5049* 5057 5068 5079 5127 
F 001166 12484 4814 4951 4960 5068 
SLFLG 031001 5012" 5018# 
SLPADR 001106 12208 
SLPERR 001110 12218 
177777 7728 
000000 7728 
177777 7728 
000000 7728 
001222 12814 
001226 12858 
001232 12888 
001236 12918 
001170 1203 1207 1254# 1739 1752 4758 5055 
001220 12758 
001224 12834 
001230 12868 
001234 12898 
001002 12034 
031000 4972* 4978  5013* 5017« 
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5265 


4965a 
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5264* 
2657 


4890 


1721 
1723 


4828 
4817 


4814 


53364 


4932 


5333 
4796 


53008 


5010¢ 


5275* 
2686 


4944 


1723 
5031 


4845 


4826 


55378 


4935 


48018 


53014 
2966* 


4960 


1748 
5032 


4907 


4842 


553588 


4955 
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3187 


4819 
5034 


4874« 


535408 


5144 


5139 


4967 
5035 


4905 


5341 


SS ee 


$039 5065 

$043 5050 

4911 

$3428 $3438 


5067 
5062 


53448 


SEQ 0155 
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= 032276 11628 atte 11708 811738 11768 «11788 11808 %11858 = 1191 11928 11968 11968 12148 
1249 161 Ht 2 16318 16328 16428 1716 2910 2957 30098 3346 3372 3401 
3415 3437 4577 4589 4605 4618 4721 47348 4814 4817 49598 46960 49678 
50208 5068 5123@ S224 53468 
-SASTA= tteeee 4972 4975 
$x = 001000 11918 1196 


ee er er ee eee -- - 
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COMMEN la 

ENDCOM a 9064 

ERROR 8004 1890 1908 1913 1943 2001 2004 2013 2022 2030 2033 2049 2052 2055 2071 
2074 2077 2086 2097 $i 2113 2118 2132 2137 2168 2173 2176 2179 2209 2244 
2295 2301 2316 2357 404 2442 2480 2507 2515 2520 2534 2547 2554 2559 2615 
2654 2720 2745 2785 2790 2794 2807 2826 2831 2843 2855 2860 2871 2897 2906 
2911 2936 2941 2946 3477 3525 3577 3614 3641 3667 3694 3740 3770 3855 3860 
3870 3872 3933 3942 3946 3956 3958 3965 4025 4032 4035 4040 4047 4245 4250 
4260 rh aaee 4331 4335 4345 4347 4414 4418 4423 4429 4546 4587 4605 4616 

ESCAPE ii 9064 

GETPRI i 9064 

GE TSWR ‘e 9064 17498 

14 9064 
NEWTST 14 9064 
14 9064 5014 5015 5211 

PUSH vf 90 4975 4977 4998 5170 

REPORT i 7728 9064 

SCOPE 8014 

SETPRI 14 90 

SETTRA 53254 5334 5335 5336 5337 5339 5341 5342 5343 5344 

SETUP 14 9064 1710 

SKIP i 9064 

SLASH 14 9064 

SPACE 9064 

STARS 14 9064 910 912 933 935 975 977 1028 1030 1061 1065 1123 1125 1158 
1160 1188 1190 1197 1210 1249 1252 1599 1601 1617 1619 1634 1640 1665 1667 
1777 1779 1785 1787 1797 1799 1808 1810 1823 1825 1861 1869 1880 1882 1895 
1897 1925 1927 1960 1962 1979 1981 1988 1990 2005 2007 2014 2016 2023 2025 
2035 20 2057 2059 2078 2080 2089 2091 2103 2105 2121 2123 2138 2145 2195 
2197 2219 2221 2262 2264 2328 2330 2367 2369 2414 2416 2452 2454 2490 2497 
2571 2582 2675 2683 2763 2770 2810 2815 2876 2882 2913 2919 2962 2964 3012 
3014 3021 3025 3043 3045 3057 3059 3085 3087 5116 3118 3145 3147 3161 3165 
3174 3177 3209 3211 3257 3259 3305 3312 3327 3331 3354 3358 3383 3387 3409 
3411 3418 3422 3446 3448 3462 3464 3485 3488 3510 3512 3533 3536 3560 3563 
3570 3572 3603 3605 3630 3632 3656 3658 3683 3685 3709 3711 3756 3763 3795 
3798 3820 3822 3836 3842 3893 3895 3906 3912 3974 3977 3989 3994 4059 4064 
4 4101 4130 4132 4141 4143 4153 4155 4161 4163 4170 4173 4185 4188 4214 
4216 4226 4232 4282 4284 4295 4301 4357 4360 4371 4376 443 WAGs 4480 4482 
4508 4510 4530 4536 4559 4565 4649 4651 4673 4676 4691 4694 4710 4712 4730 
4732 4737 4816 4819 4895 4924 4970 5027 5070 5160 5227 5304 





if 9064 
i 9064 
is 9064 5262 4837 5082 5107 
14 9064 
12084 
12084 
14 9064 
14 9064 
53254 5534 5335 5336 5337 5339 5541 5342 5345 5 344 
SSSETM 17394 


ee mm me a em ee ese —— eee 


- em mn es em me ee wr ee ee ee re or ee ee ere 6 = ee ce me ree ee 


CVKDAD 
CVKDAD 


SSSKIP 


. ABS. 


ERRORS DETECTED: 


032276 
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7728 


000 


0 


4814 
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CROSS REFERENCE TABLE -- MACRO NAME 


CVKDAD , CVKDAD.SEQ/CRF/SOL=SYSMAC.SML,CVKDAD.P11 
ME: 55 62 5 SECONDS 


RUN-TI 


RUN-TIME RATIO: 229/125=1.8 
CORE USED: 33K 


(65 PAGES) 


S 


SEQ 0136 


